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EDITORIAL 


CHRISTMAS ISSUE 

This is the Christmas issue of ELBUG with a bumper crop of reviews to help with 
last minute present buying, and more games than ever to keep you amused over 
Christmas and the New Year. In addition to our usual three excellent full-length 
games, we have also included a further three very short but no less challenging 
games for your entertainment. There is also a rendering of a popular Christmas carol 
together with its own fascinating graphics display. 


COMPETITION 

We think that the Zoom Graphics program published this month is so _ fascinating 
that we have organised a competition for you as well, though for technical reasons 
this is only feasible on the magazine cassette, and not printable in the magazine 
itself. If you don't already subscribe to the magazine cassette, why not send off 
today (see back cover for details) and give yourself a chance of winning £25 of 
Electron software. Watch out for another interesting competition in the next issue 
of ELBUG. 


ELECTRON USER GUIDE INDEX 

As well as the index to volume one of ELBUG, we were also able to include with 
your magazine last month a further additionl item in the form of an index to _ the 
Electron User Guide. We hope you will find this really useful. While still 
available, this index will also be sent out to new members with their first issue of 
ELBUG. 


ELECTRON BLOSSOMS 
Acorn now claim to have sold 170,000 Electrons and you may well have seen the TV 
advertising campaign aimed at making the Electron one of the best selling micros 
this Christmas. At a recent computer exhibition, the new PLUS 3 disc unit was to be 
seen in operation, together with Electrons using second processors am serial 
interfaces. Acorn clearly see a promising future for the Electron. 
Mike Williams 


TICE BOARD NOTICE BOARD NOTICE BOARD NOTICE BOA 


WEE SHUGGY 

Unfortunately, the superb game Wee Shuggy in the last issue (Vol.2 No.1) was 
marred by the omission of spaces in lines 296 and 380. These should be inserted 
between keywords and variable names in these three lines when typing in the program. 
This arose because the version used had been previously compacted by the author. The 
compaction causes no problem on the magazine cassette version. 


HINT WINNERS 
This month the £1@ prize goes to Peter Sandford and the £5 prize to M.R.Bowers. 
We are always interested in hearing of your hints and tips for Electron users. 


MAGAZINE CASSETTE 

This month the magazine cassette contains a total of nine programs from the 
magazine together with the data file for use with the Zoom program and the Zoom 
competition (see the back cover for full ordering details). 
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ZOOM 


by Pete and Derek Chowns 


For such a_ short program this one is remarkably entertaining. It 
allows you to zoom in and out of any picture you create with 
magnifications of up to 19 million! It is based on a perfectly 
serious application in Computer-Aided Design (CAD), but can be used 
to construct line drawings of high precision, or light-hearted 
sketches containing microscopic detail for a game of "Hide amd 


Seek". 


INTRODUCTION 

You may remember from the BBC TV 
series, “The Computer Programme", the 
demonstration in which a house was 
shown with a globe in the window. The 
picture was magnified to show the 
British Isles on the globe. On the map 
was a house. In the window of the house 
waS a globe... All that is possible on 
the Electron with this little program. 
If you have a printer with graphics 
capability, you can add your own 
routine to print the results (though 
this would also require a_ printer 
interface for your Electron). 


The ‘ZOOM' program allows you to 
produce line drawings, and at any 
stage, enlarge or reduce the size of 
the picture. This allows details to be 
drawn much larger than their final size 
for accurate results, and also allows 
part of a picture to be hidden, by 
reducing it so small that it is no 
longer visible on the screen. The 
program is entirely in Basic, and 
should be quite straightforward to type 
in and save on cassette. 


USING THE ZOOM PROGRAM 

Only six commands plus the four 
cursor-control (arrow) keys and the 
Shift key are used to achieve the 
pictures accompanying this article. 
When you run the program a small dot 
will appear in the centre of the 
screen. This is the position of the 


cursor. Hold down one of the cursor 
keys amd a line will be drawn (holding 
down Shift at the same time moves the 
cursor much faster). Use different 
cursor keys and the line can be moved 
as if connected to the starting point 
by a piece of elastic. 


When the line is where you want it, 
press D for "draw" and the line becomes 
fixed. If you merely wish to move the 
starting point of the line without 
drawing it, press M for "move". So the 
procedure is: stretch the elastic to a 
new position, and then press either D 


Key Functions 


Move 

Draw 

Remove 
Scale 

Print 

Save screen 
Load screen 


keys move cursor 


The third command, R, is for 
"remove". This will delete the last 
line that was drawn. If you hold down 
the key 'R', the program will keep 
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deleting lines, until all the lines 
have been removed. If removal of a line 
leaves a 'hole' in any remaining line, 
then the drawing can be ‘repaired' by 
re-drawing with a scale of 1 (see 
later). 


The fourth command is S for "scale". 
Type S and the word "Scale:" appears in 
the top left corner of the screen. Then 
type in a positive number for the 
magnification you require, 
e.g. 2 = twice as big, 9.5 = half as 
big, 1 = same size. When Return is 
pressed the picture is re-drawn centred 
on the latest position of the cursor 
and scaled by the factor specified. 


The command, P for "print", is only 
useful if you have a graphics dump 
routine, a printer and printer port. 
Press '‘'P' at any time to print the 
current screen display. The program 
listing shows where a printer dump 
routine (or command to one of the new 
printer dumps like *SCREENDUMP which is 
supplied with the SIR expansion) should 
be inserted. 


We have also incorporated a simple 
facility to save and load screen 
displays, using the two function keys 
£@ for save and f1 for load. Remember 
that you have to press Func with either 
of these to get the correct effect. In 
each case the program will ask you for 
the filename to save or load. Be 
careful when saving and loading as 
pressing f1 instead of £8 will delete 
the current picture in memory. 


ZOOM IN PRACTICE 

Some useful features of this program 
are the ability to create precise 
drawings, by building your picture up 
on a large scale, and then shrinking it 
down to size. You can also translate 
your shape in any of four directions. 
For example, if you have a square in 
the middle of the screen, then move the 
cursor to the top right-hand corner of 
this square. The press 'S' and choose a 
scale of 1 (same size). The square will 
now be re-drawn with the top right-hand 
corner in the middle of the screen. 


LIMITATIONS 

The program at present will allow 
drawings to be created with up to 6980 
points, set in the program at line 110. 
This could be increased am _ the 
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ultimate limit is like to be determined 
by the amount of memory available for 
storing the lengthy arrays declared at 
line 270. 


Using the scaling feature actually 
changes the stored data values. If you 
magnify any part of your drawing by 
more than about 19 million, you will be 
exceeding the accuracy of the micro and 
the results may be unrecognisable. You 
may also find that because the stored 
data has been changed, you cannot 
reduce the picture correctly back to 
the original version. A_ screen will 
always be saved at the = current 
magnification. 


ZOOM FOR FUN 

The program really is great fun to 
use, and you can puzzle your friends by 
hiding some minute detail somewhere in 
a picture amd challenging them to find 
what it is. If you try this, we have 
found that it is better to start at the 
highest level and gradually magnify 
parts of the picture as you get more 
and more detailed. If you start with 
the smallest details and gradually 
reduce these to hide them, you are 
likely to find a very obvious ‘blob’ 
being drawn as part of the initial 
picture, a real give away to the 
location of the hidden detail. 


The pictures with this article show 
one such sequence. The first shows a 
window with a view of the stars in the 
sky (actually the constellation of 
Orion). If you zoom in on one of the 
stars in Orion you will see a planet 
surrounded by asteroids. Magnifying the 
central planet will reveal the outline 
of some continents am an island, and 
further magnification of the island 
will show first the road system on the 
island, and finally a city of tall 
buildings. You soon realise that you 
only have to be as little as a 
millimetre out initially to bea 190 
kilometres adrift at a magnification of 
18 million. 


ZOOM TREASURE HUNT 


Because ZOOM is such an_ interesting 
program we have provided a data file, 
DZOOM, on the magazine cassette for you 
to explore. Unfortunately the data file 
is much too large and in the wrong 
format to be included in the magazine 
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itself. If you search hard enough you 
will find the name 'ELBUG' hidden 
somewhere in the picture you see here. 
Tell us where 'ELBUG' is located and we 
will award a prize of £25 of Electron 
Software to the first correct answer 


opened. Send all entries to _ the 
editorial address, and mark the 
envelope 'ZOOM'. Good zooming! 


1@ REM PROGRAM ZOOM 

2@ REM VERSION E@.1 

38 REM AUTHORS P.CHOWN A.R.WEBSTER 
40 REM ELBUG DBCEMBER 1984 


188 ON ERROR GOTO 399 
118 np%=60¢ 

120 *FX4,2 

138 *K.@ z 

148 *K.1 y 

15@ *K.10|U0.|M 

168 *K.12/H 


268 pnt=0 


276 DIM endx (np$%) ,endy (np%) ,startx (np 


$) ,starty (np$) 
288 GCOL 4,0 
299 PROCline 
390 REPEAT 


318 VDU4: PRINTTAB (30,98) ;pnt$;SPC(5):V 


320 COMS=GETS:*FX15,@ 
330 IF COMS="P" PROCdump 
348 PROCLine 


58 REM PROGRAM SUBJECT TO COPYRIGHT 
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358 PROCcom 
368 PROCline 
378 UNTIL @ 


398 ON ERROR OFF 

490 *FX4 

410 *FX12 

428 MODE 6 

430 IF ERR=17 END 

440 REPORT: PRINT" at line ";ERL 
450 END 


1808 DEF PROCline 
1818 MOVE 01dX,oldyY 
1028 *FX19 

1038 PLOT21,X,Y 
1848 ENDPROC 


1968 DEF PROCcom 

1078 IF INKEY-1 C=32 ELSE C=4 

1888 IF COMS=CHRS$(8) OR COMS=CHRS (14@) 
X=X-C 

1898 IF COMS=CHRS(9) OR COMS=CHRS (141) 
X=X+C 

1186 IF COMS=CHRS$(1@) OR COMS=CHRS (142 
) Y=Y-C 

111@ IF COMS=CHRS$(11) OR COMS=CHRS$ (143 
) Y=Y¥+C 

1128 IF COMS="M" oldX=X:o0ldY=Y 

1130 IF COMS="D" GCOL @,1:MOVE X,Y:DRA 
W oldX,oldY:GCOL 4,9:startx (pnt$) =oldx: 
starty (pnt) =oldY:endx (pnt$%) =X:endy (pnt 
$)=Y:pntS=pnt$+1 :oldX=X:oldY=yY 

1149 IF COMS="R" AND pnt%<>@ pnt%=pnts 
-1:GCOL@,@:MOVE startx(pnt%) ,starty(pnt 
%) :DRAW endx (pnt) ,endy (pnt%) :GCOL4,g 

1158 IF COMS="S" AND pnt$>@ PROCscale ( 


1168 IF COMS="zZ" OR COMS="y" PROCsavel 
1178 ENDPROC 


1198 DEF PROCscale(sc) 

1208 IF sc=8 GOTO 1248 ELSE MOVE @,1023 
1218 VDUS:GCOL 4,@: INPUT "Scale:"SCALES 
1220 SCALE=VAL (SCALES) 

1238 IF SCALE<=@ VDU 7:ENDPROC 

1248 CLS:GCOL @,1 

1258 FOR I%=8 TO pnt3-1 

1260 startx (1%) =(startx (I$) -X) *SCALE+6 
39.5:starty (I$) =(starty (1%) -Y) *SCALE+51 
£5 

1278 endx (1%) =(endx (1%) —X) *SCALE+639.5 
:endy (I$) =(endy (I$) -Y) *SCALE+511.5 

1280 IF ABS(startx(I%))<32768 AND ABS ( 
starty(I%) )<32768 AND ABS (endx (I$) ) <327 
68 AND ABS (endy(I%))<32768 MOVE startx ( 
I%) ,Starty (1%) :DRAW endx (1%) ,endy (1%) 
1298 NEXT 

1308 X=639.5:Y=511.5:0ldX=X: oldY=yY 
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1318 GCOL 4,8:VDU 7 1468 PRINT #X,startx(p) ,starty(p) ,endx 

1328 ENDPROC (p) ,endy (p) 

1338 : 1478 NEXT 

1348 DEFPROCdump 1488 CLOSE#@ 

1358 REM VDU5:*SCREENDUMP 1498 GOTO 1578 

1368 ENDPROC 1588 : 

1378 : 1518 X=OPENUP fn$ 

1388 DEFPROCsaveload 1528 INPUT #X,pnt% 

1398 VDU4:VDU31,¢4,9@ 1538 FORp=8TOpnt% 

1488 IF COMS="y" PRINT “ Load "; ELSE 1548 INPUT #X,startx(p) ,starty(p) ,endx 

PRINT “ Save "; (p) ,endy (p) 

141@ INPUT"Filename :"fn$:CLS:VDUS 1558 NEXT 

1429 IF COMS="y" GOTO 158d 1568 CLOSE#@ 

1438 X=OPENOUT fn$ 15786 SCALE=1 :X=649: Y=51 2: PROCscale(@) : 

1448 PRINT #X,pnt% *FX15 

1458 FORp=8TOpnt% 1588 ENDPROC & 
SSS SL a a el) SS 8 eR A eS ee a 
NEWS NEWS NEWS NEWS 
STAND UP AND BE COUNTED the BBC micro for some time now and is 


also to be bundled with Acorn's ABC 
business systems when they appear. To 
complement View, the newer Viewsheet 
spreadsheet package is also being made 
available as an Electron cartridge. 


Acorn now claims that over 94,000 
Electrons have been sold and that all 
production difficulties are over. Such 
numbers can only encourage more 
software and add-ons to appear. 


Another cartridge from Acorn, to 
grace your Plus-1 socket is the RS232 
interface. This will allow you to use 
RS232 printers, modems and other such 
serial goodies with your machine. 


NO MODE 7 AFTER ALL 

Sir Computers, manufacturers of the 
ROM board and Printstick Electron 
add-ons, have gone into voluntary 
liquidation. Although there are 
sufficient other manufacturers of 
joystick, printer, and ROM interfaces 
for the Electron, the sad loss to 
Electron owners will be the 
forthcomming Mode 7 adaptor that Sir 
was to have completed this month. This 
will now, of course, not appear. 


PLUS-3 

The Plus-3 disc drive add-on looks 
set to appear just in time for 
Christmas. Although displayed at a 
couple of shows, Acorn's Plus-3 has not 
yet made it to the shops. Acorn claims 
that the unit will be available in 
THE ELECTRON VIEWPOINT quantity by Christmas, though there are 

View, Acornsoft's wordprocessor, is ou details = =, eg Pe yeve Se 
now available for the Electron. View Pius=3 will add a single 320K 3.5 inch 
comes aS a Rom cartridge for owners of disc drive to the Electron along will 
the Plus-1 interface only at a price of all the joys of fast and reliable data 


about £49. View has been available on Storage that BBC disc users currently 
enjoy. 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


ROUNDING NUMBERS - Peter Sandford 
Remember how at school you had to ‘round’ all those decimal numbers? Basic 
doesn't provide a function to round them directly but you can print them rounded. 
The function below will do this for you. For example, to print 6.1234 rounded to two 
decimal places, you'd use: 
PRINT FNround (6.1234, 2) 1688 DEF FNround (number ,places) 
6.12 1818 LOCAL @% 
1928 @$=&1929009+256*places 
1930 =VAL(STRS (number) ) 
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POWER BOAT RACE 
by Charles Francis 
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Powerboats iS a game in which you, and possibly your partner, have 
to race down the ubiquitous river El Yako with great skill and 
courage in the attempt to catch the computer controlled ‘drone’ 
boat. If you manage to beat this boat in all six heats then you win 
the 'Golden Cup' prize. 


Written by the author of the superb 486 REM ELBUG DECEMBER 1984 
game ‘Flowers of Hell', Powerboats 5@ REM PROGRAM SUBJECT TO COPYRIGHT 
represents a good entertaining game to 60 : 
keep the entire family satisfied over 198 ON ERROR GOTO 3106 
the Christmas break. Although a little 118 MODE1 
long, the program is very efficient, 128 DIM S%280,2%150,0%158,W%159,winne 
and demonstrates how to use your r$(7) ,time(7) ,boatleft$ (2) ,boatright$ (2 
Electron very well. ) ,-boat$ (2) ,afts (2) 
138 PROCchar: PROCstr ing: PROCenv 
Once you have typed the program in 148 PROCinstruct 
and saved it onto tape, you can run it. 15@ FOR round$=1T06: PROCwidth 
The program will prompt you as to 168 PPOCstart 
whether a one or two player game is 178 FOR C%=@TO@STEPG 
wanted. You should respond to this 188 SOUND&19,2*A%,4,255 
question by pressing '‘'Y' if you want 198 I$=1%-2* (I$<150) :IG=J$—-2* (J$<1 5G) 
the computer to control boat two or 'N' 268 ON POINT (G$+8,H%)GOTO219, 219,220 
if you want another person to control ELSE ON POINT (G%+52,H%) GOTO210,2198,22@ 
boat two. Player one uses the '‘'Z' and ELSE239 
'X' keys for left and right movement, 218 IFQ%-27Q%=Q%+1 : H¥=H3-32: IS=1 3-1 
with the throttle of his boat being 228 SOUND&11,A%,9,255: I1$=I3-1 
controlled by the '‘'C' key. If a two 238 ON POINT (E%+8,F%)GOTO24G, 240, 250 
player game has been selected, then the ELSE ON POINT (E%+52,F%)GOTO24@, 240, 250 
keys '<' '>' and '?' are used by player ELSE269 
two to control his boat. 248 IFV%-27V%=VS+1 : J$=J3-1 sFS=FS-32 
258 SOUND&12,A%,0,255:J=J%-1 
The course of the river is varied 268 PROCmove 
and treacherous, with many large slime 278 K%=SGNK%: L$=SGNL$: P$=PS+K$ : G3=P$* 
covered rocks protruding from the 32:M$=50* (K$+1 ) : US=US+L$ zs ES=US* 32: N$=5G 
Surface to hamper your progress; if * (L$+1) :K$=@0: L$=0 
your boat strikes one of these rocks, 280 PROCriver : PRINTTAB (R%,@) $ (S$+T%) TA 
then your boat is slowed down and you B(RND (D%) +R&, 8) GSCHRS253TAB (X$%, 2) S(ZS$+Y% 
may lose your place in the race. ) TAB (P$ ,Q&) $ (O$+M$) TAB (US, VS) $ (WS+NB) ; 
298 NEXT 
Note. that a degree of flexibility 30G PROCendround 
has been built into the program. In 310 NEXT 
line 3076, D% specifies the river 328 PROCendgame 
width, B% the difficulty factor, and A% 330 IF gS="Y"THEN RUN 
inficates whether you want sound or 340 MODE 6 
ne A%$=1 means you do, amd A%=8 means 359 END 
you don't. The strange loop between 360: 
lines 178 and 298 is equivalent to, but 1808 DEFPROCchar 
faster than, C%=@:REPEAT...UNTIL C%. 181 VDU23,1,9;0;9;9; 
{SE tte 1828 VDU23,224,1,3,7,14,13,27,308,61 
18 REM PROGRAM POWER BOATS 1038 VDU23,225,128,192,224,112,176,216 
28 REM VERSION E@.3 , 120,188 
3@ REM AUTHOR C.FRANCIS a 
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1846 YDU23, 226,59, 63,48, 103, 109, 105,10 1348 : 


4,127 1358 DEFPROCstring 
1658 VDU23,227,226,252,12,236,182,150, 1368 CS=CHR$17:BBS=CS$+CHRS1 28: BS=C$+CH 
22,254 1t$@ : GBS=CS$+CHRS 1 30 :WHS=CS+CHRS 3: Y$=C$+C 
1668 VDU23,228,126,121,123,57,57,57,56 HRS1 : GS=CS+CHRS$2 
,63 1378 NS=CHRS$11 : SS=CHRS$1@:WS=CHR$8 : ES=C 
1878 VDU23, 229,308,158, 158,156, 156,156, HRS9 : SWWS=SS+WS-+WS : SWAWS=SWWS-+WS : SPS=CH 
28,252 R$32 
1688 VDU23,230,112,115,118,49,51,55,48 1388 bowS=CHR$224+CHR$225:mid$=CHR$226 
,63 +CHR$227 : wash$=CHR$234+CHRS$235 
1898 VDU23,231,14,206,110,204,12,236,1 1398 aft$(@) =CHR$232+CHRS$233:aft$ (1) =C 
2,252 HR$228+CHRS$229:aft$ (2) =CHR$238+CHR$231 
1108 VDU23,232,112,119,112,49,54,51,48 1466 FORi%=@TO2 
,63 1410 boatleft$ (i%) =bowS+SPS$+SwwwS+mids 
111@ VDU23,233,14,238,118,204,188, 204, +SPS+SWWWS+aftS (i$) +SPS+SWWWS+WHS+wash$ 
12,252 +SPS 
1126 VDU23, 234,72,74,144, 145,16, 34, 32, 1426 boatright$ (i%) =bow$+SWWWwS$+S P$+mid$ 
37 +SWWWS+SPS+afts (i%) +SWWWS+SPS+WHS+wash$ 
113@ VDU23,235,18,82,9,137,8,68,4, 164 1438 boat$ (i$) =bowS+SWWS+mid$+SWwS+aft 
1148 VDU23,236,255,255,255, 255,255,255 $(i%) +SWWS+WHS+wash$ 
» 255, 255 1440 NEXT 
1156 VDU23,237,255,127,127,63,63, 31,31 1458 $Z%=boatleftS (GB) :$(Z%+5G) =boats (Gd 
715 ) :$(Z%+10@) =boatrights (G) 
1166 VDU23,238,15,7,3,1,0,9,9,@ 1468 FORi$=1TO2 
1178 VDU23,239,255, 255,255, 255,255,127 147@ boatleft$ (i%)=yYS$+boatlefts (i%) 
763,31 1488 boatright$(i%) =YS+W$+SP$+boatrigh 
1188 VDU23,240,15,7,7,3,3,1,1,0 t$ (i$) 
1198 VDU23,241,0,1,1,3,3,7,7,15 1498 boat$(i%)=Y$+boat$ (i%) +SWWS+wash$ 
1288 VDU23, 242,31,63,127,255, 255, 255, 2 1586 NEXT 
55,255 1518 S$O%=boatleft$ (1) :$(0%+58) =boat$ (1 
1218 VDU23,243,0,8,0,8,1,3,7,15 ) :$ (0%+10@) =boatr ight$ (1) 
1226 VDU23,244,15,31,31,63,63,127,127, 1528 SWt=boatleft$ (2) :$ (W%+5@) =boat$ (2 
255 ) $ (W$+1 8G) =boatright$ (2) 
1238 VDU23,245,6,128,128,192,192,224,2 153@ ENDPROC 
24,240 1546 : 
1246 VDU23, 246,240,248, 252, 254, 255, 255 155@ DEFPROCinit 
7255,255 1566 E$=D% DIV2:R$=19-E%:X$=19 
1258 VDU23,247,8,8,9,6,8,128,192,224 1570 P$=16:Q%$=27: U$=22: V$=27: TS=1 29 
1268 VDU23,248,240,248,248,252,252,254 1588 I1%=6:J%=0 
7 254,255 1598 Y$=50:M%$=50:N%=50 
1278 VDU23, 249,255, 254, 254, 252, 252, 248 1608 E%=U$*32:F%= (32-V%) *32:G$=P$*32:H 
7 248,240 $= (32-Q%) *32 
1288 VDU23,250,224,192,128,6,8,9,0,@ 1618 ENDPROC 
1298 VDU23,251,255,255, 255, 255,254,252 1626 : ee 
1,248,246 1638 DEFPROCstring2 Taal 
1380 VDU23, 252,240,224, 224, 192,192,128 1648 SS%=CHRS$238+CHR$239+STRINGS ( (D$-1 
,128,6 ) ,CHR$236) +CHR$246+CHR$247 
1318 VDU19,@,4,0,0,8:VDU19,1,3,8,9,0:V 1658 $(S%+4@) =CHR$237+STRINGS (D%, CHRS$2 
DU19,2,2,8,8,@ 36) +CHRS245 
1326 VDU23,253,112,58, 127,249, 188,54,3 1668 $(S%+8G) =CHRS248+STRINGS (D%, CHR$2 
9,191 36) +CHRS248 
OO OS) A 
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1670 $(S%+12@) =STRINGS (D%+1 , CHR$236) 
1688 $(S%+16@) =CHRS244+STRINGS (D%,CHRS 
236) +CHRS$252 

1698 $(S%$+28G) =CHRS241+STRINGS (D%,CHRS 
236) +CHRS249 

1788 $(S%+248) =CHRS243+CHR$242+STRINGS 
(D$—-1 , CHRS236) +CHRS$251+CHRS25G 

1718 FORC%=S$TOS $+249STEP4G: SC$=GBS+NS 
+B$+$C%3+BBS : NEXT 

1728 ENDPROC 

1730 : 

1748 DEFPROCriver:ON T% DIV4@ GOTO177@ 
,1798,1818,1836,1858,1878 ELSE175¢ 

1758 IF R%=0 T%=200:Y%=50 ELSE IF RND( 
2)-1T%=40: Y$=50 ELSE RS$=R$-1: X$=X$-1: YS 


=G 

1768 GOTO188¢ 

1778 IF RND(2)=1 T%=120:Y%=50 ELSE T= 
89: R$=R$-1 3 XS=X3-1 2 YS=G 

1788 GOTO188¢ 

1790 IF R%=8 T%=200:Y%S=50 ELSE IF RND( 
2)=1 T%=40:Y$=50 ELSE T%=0:RB=R3-1 2 YS=G 
:X$=X$-1 

1888 GOTO188¢ 

1810 IF RND(2)=1 T%=160:Y%=50:ELSE T= 
80: R$=R3-1 : X$=X3-1 2 YS=O 

1828 GOTO188¢ 

1830 IF R&8+D%=38TS=46: Y$=50 ELSE IF RN 
D(2)=1 T$=200:YS=50 ELSE T3=24¢ 

1848 GOTO188¢d 

1859 R&=R$+1:2:X$=X$+12:Y$=190: IF RND(2)= 
1 T$=120 ELSE T3=160 

1868 GOTO188¢ 

1870 R&=RS+1:2X$=X3+1 2: YS=10G: IF RS+DS=3 
8TS=48 ELSE IF RND(2)=1T3=20@8 ELSE TS=2 
49 

1888 ENDPROC 

1898 ; 

1980 DEFPROCIL 

1918 ON POINT (G%-24,H%-32) GOTO192G, 193 
89,1958 ELSE ON POINT (G%-24,H$-96) GOTO19 
2G,1938,1958 ELSE196@ 

1928 PROC2L 

1938 SOUND&11,3*A%,240,19: IF Q%-270%=0 
+1 sHE=H3-32 

1948 ENDPROC 
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1959 SOUND&11,A%,8,255: 1$=I%-1 
1968 I%$=I1%-1:K%=K%-1 

1978 ENDPROC 

19898 : 

1998 DEFPROC2L 

2086 ON POINT (E%-24,F%-32) GOTO2016, 202 
@,2048 ELSE ON POINT (E%-24,F%-96) GOTO2@ 
10,2026,2040 ELSE205¢ 

2818 PROCIL 

2826 SOUND&12,3*A%,240,16: IF V%-27V%=V 
$+1 sFS=FS-32 

2838 ENDPROC 

2048 SOUND&12,A%,0, 255: J%$=JS-1 

2058 J$=J$-1: L3=L$-1 

2868 ENDPROC 

2078 : 
2088 DEFPROCIR 

2099 ON POINT (G%+84,H%-32) GOTO218G, 211 
8,213@ ELSE ON POINT (G%+84,H%-96) GOTO21 
68,2110,2138 ELSE214@ 

2188 PROC2R 

2118 SOUND&11,3*AS, 240,10: IF Q$-270%$=0 
$+ 1 :HS=H$-32 

2128 ENDPROC 

2138 SOUND&11,A%,8, 255: I$=I1$-1 

2148 I$=IS-1:K$=KS+1 

2158 ENDPROC 

2168 : 

2176 DEFPROC2R 

2186 ON POINT (E%$+84,F%-32) GOTO21 90, 220 
99,2220 ELSE ON POINT (E%+84,F%-96) GOTO21 
96,2208,2220 ELSE223¢ 

2198 PROCIR 

2206 SOUND&12, 3*A%, 246,10: IF V%-27V%=V 
$+1 sFS=F3-32 

2218 ENDPROC 

2228 SOUND&12,A%,0, 255: J$=J%-1 

2230 J%=J$-1: L$=LS+1 

2248 ENDPROC 

2256 : 

2268 DEFPROCUI:IF I%<@ ENDPROC 

2278 SOUND&11,A%, 19, 255: H$=H$+32: 03=O% 
-1:I%$=I%-B: IF Q%=8C%=1 

2288 ENDPROC 

2298 : 

2300 DEFPROCU2: IF J%<@ ENDPROC 

2318 SOUND&12,A%,10,255:FS=F3+32: VS=VE 
-1:J$=J$-B%: IF V%=8C%=2 

2328 ENDPROC 

2336 : 

2348 DEFPROCenv 

2358 ENVELOPE1,1,4,-2,-2,2,2,2,126,9,@ 
,-126,126,126 

2360 ENVELOPE2,1,-1,9,0,2,0,8,126,9,@, 
-126,126,126 

2378 ENVELOPE3,1,-12,-8,-2,5,19,48, 126 
,9,9,-126,126,126 
2388 ENDPROC 

2398 : 

2486 DEFPROCinstruct 
24190 wonl%=9:won23=0 
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2428 CLS 

2439 PRINTTAB(14,2) YS"POWER BOATS" 
2440 PRINTTAB(9,4)GS"A game for two pl 
ayers" 

2450 PRINTTAB(5,6)"Do you want me toc 
ontrol boat 2?" 

2460 REPEAT 

2478 gS$=GETS$ 

2480 UNTIL INSTR("“YN",gS$) >@ 

2498 IF gS="Y"THEN eS=TRUE ELSE e%=FAL 
SE 

2508 COLOUR] 

2518 INPUTTAB(@,8) "What is your name, 
player 1? “namel$ 

2520 IF e% name2S="ELK" ELSE INPUTTAB ( 
9,18)"What is your name, player 2? "nam 
e2$ 

2538 ENDPROC 

2548 : 

2550 DEFPROCStart 

2568 PROCinit: PROCstring2 

2578 FOR C%=@0 TO15:PRINTTAB(R%S,@) S$ (S3+ 
T%) ;:NEXT 

2588 FOR C%=@ TO15:PROCriver 

2598 PRINTTAB(R%,@) $(S%+T%) TAB (RND (DS) 
+R% ,@) GSCHR$253 

2608 NEXT 

2610 PRINTTAB (X%, 2) $ (Z%+5@) TAB (P3,Q3)$ 
(O$+58) TAB (US, V%) S (WS+5@) ; 

2628 PRINTTAB(10,3@0)"Press SPACE to st 
art" 

2638 REPEAT UNTIL INKEY-99 

2648 TIME=9 

2658 ENDPROC 

2660 : 

2678 DEFPROCendround 

2688 CLS 

2698 SOUND3,9,@,1 

2786 time$=TIME: time (round’$)=time% DIV 
6000+(time$ MOD680G) /1 9880 

2718 IF C%=1 THEN winnerS (round$) =name 
1$:wonl$=wonl%$+1:ELSE winnerS (round$) =n 
ame2$:won2$=won2$+1 
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2728 COLOUR3 

2738 PRINTTAB (16,1) “ROUND 
2748 @$=&2G205 

2758 COLOUR]: PRINTTAB (2,5) winnerS (roun 
d%)" won in "s;time(round$’) ;" minutes" 
2768 PRINTTAB(11,10)WHS"VICTORY TABLE" 
TAB (2,19) “ROUND PLAYER"SPC (16) "TIME" 
2776 FOR c%=1 TO round’ 

2780 @S=&B0G9GA 

2798 PRINTTAB (4, 11+2*c%) ;c% 

2880 @%=&29205 

2810 PRINTTAB (9, 11+2*c%) winnerS (c%) TAB 
(38,11+2*c%) time (c%) 

28208 NEXT 

2838 @%=&0G9GA 

2849 IF round$-7 PRINTTAB(9,3@)"Press S 
PACE to continue"™:REPEAT UNTIL INKEY-99 
2858 ENDPROC 

2868 : 

2870 DEFPROCendgame 

2888 IF wonl%>won2% PRINTTAB(1,28) name 
1$;"" wins ";wonl3;" rounds to ";won23;: 
GOTO298¢ 

2890 PRINTTAB(1,28)name2$;" wins ";won 
2%;"" rounds to ";wonl%; 

2908 PRINTTAB(1,3@)"Do you want anothe 
r game?";SPC(7); 

2919 REPEAT:g$=GETS$: UNTIL INSTR ("YN",g 
S$) 

2928 ENDPROC 

2936 : 

2948 DEFPROCmove 

2950 IF INKEY-83 PROCU]1:GOTO2989 

2968 IF INKEY-98 PROCIL 

2970 IF INKEY-67 PROCIR 

2988 IF eSTHEN393¢ 

2990 IF INKEY-1985 PROCU2:GOTO39029 

3000 IF INKEY-103 PROC2L 

3618 IF INKEY-1@4 PROC2R 

3828 ENDPROC 

3030 IF POINT (E%3+8,F%+32)=2 OR POINT(E 
$+8,F%)=2 OR POINT (E%+8,F%+32)=1 PRINTT 
AB(U%,V%-2) SPSSP$; :PROC2R ELSE IF POINT 
(E$+52,F%+32)=2 OR POINT (E%+52,F%)=2 OR 
POINT (E%$+52,F%+32)=1 PRINTTAB (US$, V%$-2) 
SPSSP$;:PROC2L ELSE PROCU2 

3848 ENDPROC 

3058 : 

3868 DEFPROCwidth 

3878 D%=20:BS=20:AS=1 

3888 ENDPROC 

3090 : 

3188 ON ERROR OFF:MODE 6 

3110 IF ERR=17 END 

312@ REPORT:PRINT" at line ";ERL:END 
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ALLIGATA’S CONTRACT BRIDGE 


Reviewed by Sheridan Williams 


Program : Contract Bridge 
Supplier : Alligata Software Limited 
Price : £9.95 


As far as I am aware this is the 
only program available on the 
Electron/BBC micro which will bid and 
play the other three hands in a game of 
Bridge. 


THE DEAL 
There is obviously an algorithm in 
the random deal to produce 


"interesting" hands. There is no other 
explanation for the number of voids, 
six and sevenes@ard suits that are 
dealt. The more hands I played the more 
infuriating this became; — ‘Part of the 


you know these haven 
cannot play in a 2 Ga ate = 


THE BIDDING ’ = 

computer oe ‘decides who 
opens the bidding, but you are not 
given any details of vulnerability. The 
package says the bidding is natural and 
has "Stayman", pre-emptive jump bids, 
and strong two bids. 


I got very confused by some of th 


bids, which seemed most ee 


[a > 
ay = ¢ ae 
var _ © 

‘ 
py, 


can only liken it to bidding” 
someone in whom you _ have "2 
confidence. One quite common bid is” 


"STOP 3 SPADES" whatever this means. A 


disappointing omission from the bidding 
was “doubling", and this essential 
means of communication could not be 
used. Nevertheless, better to have a 
novice partner than not being able to 
play at all, and after g€veral hours 
play I began to adapt bis ON? (had icap. 
“ae es 5 es: 
THE PLAY | Naas 
The computer as your a cannot 
be trusted to notice your Signals, e.g. 
"high low" play with a doubleton. With 
the computer playing your opponents' 


ey 2scrivt out of range’ 
Ymanefests itself in a long bidding 


hands, it seems uncannily able to play 
the ri ht card at critical moments. The 
‘Says that it plays a_ rubber 
coring, but I could not make it 
+ Bach hand is totally separate 
not go to make up a rubber. 


obvious why some features or 
enhancements are missing, this is 
because the program uses virtually all 
the memory already. Compressing the 
program (I used BEEBUGSOFT's TOOLKIT) 
saves over 1708 bytes and would allow 
considerable enhancements to be 
incorporated. There is also a 
bug which 


sequence. This does not occur often but 
it is a pity it has not been cured. 


CONCLUS ION 


I would not profess to be an expert 
Bridge player, but I have played on and 
off for.20 years. I found this program 
to be worth buying simply because it 
provides “aM opportunity to play Bridge 
when yt | Ramot make up a four. 


- Ps ee 


Other ned ™to live with its 
— and until a better version 
is sent for review I can  recamnmend 
Alligata's Contract Bridge. ) 


Vv 


ra 


¢ 4 


ELBUG 


DECEMBER 1984 


Volume-2 Issue 2 


iG 


4 CHRISTMAS CAROL 


RAG 
& Ti by D.C. Cansees 
2 With Christmas approaching we have¥ 308 A%=250:B=RND (1) *9.4+0.3 
decided to include a program with a% 318 FORI%=@T0O249 STEPI5 


seasonal flavour that provides a good 
demonstration of the sound and graphics 


program 


320 
338 


FORK%=1T0O6 
MOVE@ , @:MOVEI%*S (K%) , 18*C(K%) 


capabilities of your Electron. The 348 PLOT1,A%*S (K%-1) ,AS*C (K3-1) 
provides an attractive 358 PLOT1,-A%*S (K$-1) ,-A$*C(K%-1) 
Christmas card display on the screen 368 PLOT1,A%*S (K%+1) ,AS*C (K3+1) 


while playing a rendering of "See Amid 
The Winter's Snow". We are sure that 
you will find the results of typing in 
this relatively short program well 
worth while. Be careful when copying 


the program, particularly with the data, 
, statements at the end, otherwise the - 


music will be out of tune. 


- The program is well structured and 


NEXT 

PROCmus ic :A$=RND (249-I$%) *B 

NEXT 

X$=X$+50G+RND (190) 

IFX%>1 @B@THENX%=380+RND (189) 
FORI%=8TO7 

WS=INKEY (15) : PRINTTAB(@,@) 7: VDU11 
NEXT 

UNTILFALSE 

END 


<you should have no difficulty in : 

identifying the various parts. The 1688 DEFPROCmusic 

music is held as a series of numbers in 181@ IBADVAL(-6)<3 THEN ENDPROC 

data statements which are used as the 1028 READP%,D% 

parameters for sound, frequency and 1038 IFD%=1THENRESTORE: ENDPROC 
duration in the procedure PROCnusic. 1948 IFD%<2THEN SOUND1,9,@, (1+30*D%) 


continue 
Escape or Break. 


1858 SOUND1,-15,P%,D% 


started the music. will 1668 ENDPROC 
indefinitely until you press 1978 : 
1888 REM ** SEE AMID THE WINTERS SNOW 
ATS 1698 DATA129,18,137,6,129,12,125,12,11 
Birney Oy Sa, Ses 7,12,117,6,109,6,109,12,189,12 


1188 DATA129,12,137,12,149,12,145,12,1 
45,12,145,6,137,6,137,24 

1118 DATA129,12,129,6,137,6,129,12,125 
,12,117,12,117,6,1869,6,109,12,189,12 
1128 DATA129,12,137,12,145,12,149,12,1 
37,12,137,6,129,6,129,24,157,17,8,@ 
113@ DATA157,6,149,12,145,12,137,12,12 
9,12,125,24,157,17,8,0,157,6,149,12,145 


REM VERSION E@.1 
REM AUTHOR D.G.CHAPPELL 
REM ELBUG DECEMBER 1984 Oe 
REM PROGRAM SUBJECT TO COPYRIGHT 


ON ERROR GOTO 1160 


MODE2 49,137512,129.12; 125024 

GCOLG, 129:CLG 1148 DATA129,18,137,6,129,12,125,12,11 
VDUS: GCOLG, 2 7,12,117,6,109,6,189,12,189,12,157,18,1 
MOVE] 20, 600 45,6,129,12,149,12,145,12,137,12,129,24 


PRINT"MERRY CHRISTMAS" 2 6,1 % 
GCOLG, 7:MOVE1 28, 604 elisa: g 


176 PRINT"MERRY CHRISTMAS" ‘ 
186 WS=INKEY (580) 

198 MODE4:VDU19,9,4,9,0,@ 

208 VDU23,1,0;9;0;9; r 


1160 ON ERROR OFF:MODE 6 
,117@ IF ERR=17 END Ss t 
"118 REPORT: PRINT" at line ";ERL 


= 


- WS 1199 END & 
218 DIM S(7) ,C(7) 
220 CLS:A=-PI/3 ie wk a 
238 W%=INKEY (100) : RESTORE Nd, “ot — tag 
248 FORI%=@TO7:S (1%) =SIN (A) we Sxe. Eis 
258 C(1%) =COS (A) :A=A+PI/3 IX, 
268 NEXT : 
276 X%=350: Y$=756 r 
280 : . wie 

REPEAT: VDU29 , X%; Y3; “ts . . 
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Title 


Supplier : Acornsoft 
Price : £12.95 


Elite 


Rev iewer David Fell 
Rating kkekekk 


Acornsoft Elite is the first ina 
new generation of 3-D space games 


featuring interstellar travel in a 
distant cluster of galaxies, or so 
goes the advertising - unusually, 


it's right. I've played Elite fora 
week now and I'm convinced that it is 
the best game ever for the Electron. 


Elite combines the elements of a 
number of classical games to produce a 
superb three dimensional graphical 
trading game of skill am _ absolute 
addiction, that squeezes every ounce of 
performance out of the Electron. Elite 
combines a three dimensional action 
combat game, a 'Monopoly' like trading 
game and various aspects of an 
adventure style exploration game. 


Elite takes its name from. the 
overall goal of the game, which is to 
achieve a rating of ‘'Elite'. To achieve 
this you need to be a successful space 
trader (to purchase the necessary 
weapons) and achieve a high level of 
flying and combat skills (your rating 
is based upon the latter, amd your 
survival is dependent upon both). 


Your space ship is equipped with 
normal and hyperspacial drives. Combat, 
normal flight and docking are all 
per formed in real time, with some 


stunning graphics achieving an amazing 
impression of realism. 

The trading is quite complex due to 
the sheer quantity of information 
involved: 2808 planets selling 17 
different items; political situation; 
planetary produce, etc. If all this 
sounds too dull you can always give up 
the life of the honest trader and 
become a bounty hunter or space pirate, 
but this involves living life 
dangerously. 

Combat takes a while to master, and 
requires sheer determination and three 
dimensional perception to survive. Your 
armoury, apart from three missiles and 
a small laser, will depend upon 
accruing money from trading. AS a 
warning, it is said that there are 
spaceships ‘out there’ that no one has 
ever seen! 


Freat View 


Elite is undoubtedly a masterpiece 
of programming amd I would recommend 
anyone who has an Electron to buy a 
copy aS soon as possible. Elite has 
already firmly established itself as a 
cult game for the BBC micro amd looks 


Title : Sadim Castle 
Supplier : MP Software 
Price ; £7.50 
Reviewer : Mitch 

Rating ¢ wee 


Having been foully murdered by her 
husband, the Lady Leonara has cursed 
the castle and all who set foot within 
it. It was my task to find her mortal 
remains and lay them to rest in peace. 
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been added to the game. You have no 

time to stand and stare but must hurry 

Mc pr po OP ever forward towards that light at the 
You are on a track which runs 

east & south beside a high wall, 


in the north green fields & a 
wooden gate can be seen 


large tent 


You are on a track that runs N/S 
beside a high wall,a path 
branches west & a sign reads TO 
THE 


You are by 2@ group of A aan camels. 
Tracks lead north & west 

HOLY SPRING You are wandering around the 
melee: pemeg es a camp Tracks lead 
south,west & east towards a 
large tent 


You are at the end of a rocky 
valley which stretches east Water 
gushes from beneath a boulder & 


trickles away across the stony You are in a long arid valley at 


the middle of an archaeologists 
casp.A track leads away north 


You are by a group of hobbled camels 
Tracks lead north & west 

Py on are thirsty 

t c) tempe 7 


The present ghastly inhabitants didn't 
seem impressed by my chivalry, however, 
and did their damnedest to kill me. A 


few kindly souls did assist me, if I end of the tunnel, which knowing my 
first solved their problems, so it does luck will be a train coming the other 
help to be polite! The game is a way! 

coloured text, split screen affair with 

lots of well written descriptions. The This game has. all the usual 
castle abounds with locked doors which ingredients, but in that is its 
require an endless supply of keys. weakness. I couldn't find that magic 
Opening doors becomes such a confusing something which 1s needed to keep me 
business that I found I spent an hour battling forward so I folded my tent, 
trying to unlock one which I later mounted my camel and stole off home. 


found wasn't even locked! 


Not so easy 1S the solution to the 


wandering monster that follows you. Title : Gauntlet. 
Unfortunately he continues to reappear Supplier : Micro Power. 
with monotonous regularity causing you Price : £6.95 

to repeat the same action ad-infinitun. Reviewer : Geoff Bains. 
The game however has a nice '‘'feel' to Rating 3: **** 


it and is not too difficult. 


The Valley Of The Kings 
MP Software 
£7.50 


Mitch 
xx 


Rev lewer 
Rating 


ny 
~ 
° e re) 
@ 


A similar format of coloured text 
and split screen, this game found me 
crawling around in decaying corpses 
beneath the pyramid of old King Tut. 
The place is so hot and smelly that 
you'd better ensure you bring lots to 
drink and something to keep the deadly 


stink out of your nostrils. I found a Gauntlet shows just what can be done 
laundry basket which hissed and a pit with an Electron if you try. Gauntlet 
in which something nasty was is a version of the now ageing arcade 
slithering! classic, Defender, in which you have to 
defend a planet's surface, and more 

A real time element coupled to your importantly the beings upon it, from 
endless thirst and flickering torch has the invaders. The invaders come in all 
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forms. The most important are those 
that actually kidnap the planet's 
natural inhabitants. You can perform 
thrilling mid air rescues to return the 
beings to the surface. Other invaders 
are just there to get you. Some split 
up when hit to form several very fast 
moving smaller critters. 


To aid you in this quest you have 
but a small craft equipped with a_ long 
range scanner and a front-facing laser 
and a few 'smart bombs' which destroy 
every hostile thing visible on the 
screen. 


As such, Gauntlet is ae fairly 
standard version of Defender. That is 
what is so good about it. Not so long 
ago nobody thought it possible to 
perform such smooth moving, 
action-filled games as this on an 
Electron. Micro Power has proved the 
point very convincingly. The graphics 
are excellent. All the action is very 
fast and smooth, the controls 
responsive, and the colours well 
thought out. There is so much going on 
all the time. Some of the 'set pieces' 
such as your craft exploding (it does 
happen occasionally!) are brilliant - 
better than the original or Acornsoft's 
much acclaimed BBC version. 


As if all this wasn't enough there 
is even a demonstration mode. If your 
fingers get worn too close to the bone 
you can sit back and watch it all 
happen with the Elk at the controls. 
Marvellous. 


Next to a masterpiece such as_ Elite 
I guess Gauntlet still looks pretty 
tame, but it is an excellent version of 
an old favourite and as such will 
probably do as well for Micro Power as 
it will for you. 


rrr 
i ee a 


Rubble Trouble 
Micro Power 
£6.95 


Alan R Webster 
kek«k 


ny 
- “2 


Rubble Trouble is one of a number of 
new releases from Micro Power which 
have been converted from the BBC micro. 
The game is’ set in a _ post-nuclear 


Foot ehetetete"e*e™ete™e*e¥etete™e*a™etete*etetete®.*.*. 8.0.8.8. 8.8 8.9 6 9 oo 
+08 ee ee ee ee we wwe ew ew ee ew ee ee ee ee ete ete ete a ete a na ee a ae ee a ee ee ee ee ee ee ee 
ne ate ee eee ete ete ete ttt eee #8 6 8 8 6 e 8 e886 48 6 8 8 8 8 ee 8 ee 6 8 8B a 6 eb a ee 6 eee ee e's ee 6 6 6 6 6 4 8 8 
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wasteland and involves crushing mutant 
'Krackats' by pushing boulders onto 
them. The game is similar in concept to 
the arcade game '‘Pengo', except that 
the scenery is different and when you 
push a boulder it bounces back and 
forth across the screen. This can be 
very dangerous, especially if you 
happen to be in the way of the rebound. 


There are also bonus rocks strewn 
across the screen which are very useful 
for points. There are 3 £4different 
scenarios to this game ranging from the 
Simple 'Pengo' type screen to one where 
the whole playing area is full of 
blocks, and you have to find your way 
through (this is much more difficult 
than it sounds). 


The graphics are fast and smooth, 
and the sound effects excellent. There 
are also comprehensive instructions 
(including weird sounds) am a high 
score table. Overall this game is very 
good, amd certainly a novelty. If 
you've played 'Pengo', then you'll love 
Rubble Trouble. 


Ar ee 
Tare ete a ate ete ete ete ete ete a ate ee ane t att tee 8 8 8 ee ee we ae ene a a sate ete ate ete ete a sie ee ee ee ese see e's 6's ee” 
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Espionage 

Modular Resources Ltd. 
£8.95 

Geoff Bains 


a 
~ 
+e. Q 
1) 


Espionage is (apparently) 'a unique 
game of intrigue...programmed to assess 
your intelligence’. Presumably 
assessment is on the basis of whether 
you buy the game, or not. 
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FROM: The Persone! Departeacnt . 


JOB ALLOCATION 
You are an 
-GAaR ICIAN 


You are based 
- AT A PRODUCTION PLANT 


The location is 
- SOMEWHERE IN THE CARIBBEAN 


Your work is rticularly concerned 
with - BENCH Rics 


PRESS THE SPACE BAR TO CONTINUE 


In Espionage you have to discover 
the identity of a mole who is’ leaking 
information from your Oil Company to a 
rival firm. To do this you answer 
boring telexes, memos, and so on from 
other members of staff, trying to see 
if they are interested in subjects 
outside their field. 


The whole game is written in badly 
structured Basic. It has as much 
interest as a chemistry exam. Even when 
you do discover the mole, all you get 
is a curt ‘well done' and it's back to 
Square one again. 


The worst feature of this game, 
however, is that it 1S in _ several 
sections, accessed in a different order 
each game. This means that finding the 
next section to load takes ages, 
especially as each section 1s over 58 
blocks long. The messages displayed, 
such as ‘Rewind side two of the tape to 
just after 178 on the tape counter’ are 
pretty useless as soon as you realize 
that different recorders have differing 
tape counters. On the official Acorn 
data recorder this estimate was about 
five minutes worth out. 


Espionage is certainly a novel game. 
It's the first of its type. Let's hope 
the last, too. 


a free sticker, 
real bargain at 


On yeah, you get 
pen, and card too. A 
nearly nine quid. 
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Name : Electron Zalaga 
Supplier : Aardvark Software 
Price ; £7.96 

Reviewer : David Fell 

Rating =: **** 


Electron Zalaga 
the writer of classics such as Frak! 
(for the Beeb), and Arcadians (for both 
the Beeb and the Electron). The game 
exemplifies what can be achieved on the 
Electron [see also the ‘Elite’ review - 
Ed.], and provides a challenging and 
enjoyable fast action combination of 
skill and luck. 


is a new game from 


Based upon the arcade game Galaga, 
Zalaga is a good example of the zap 'em 
quick type game. After an attractive 
mode 4 title page, all the action takes 
place in mode 5, with three ‘layers' of 
different colour stars providing a 
continual moving backdrop, even whilst 
entering your high score! Aliens swoop 
in from the top am sides of the 
screen, and assemble themselves into 
various patterns, prior to near 
Suicidal attacks upon yourself. You are 
armed with a powerful laser base, and 
can use this very effectively to cut 
through the hordes hovering above you. 
Options for auto-repeat and speed of 
reload for your laser gun are included 
via a special ‘Operator mode’. This 
mode also caters for a choice of 
keyboard Or joystick (analogue or 
digital) control, and the selection of 
a one or two player game. 


Electron Zalaga 
should be considered as 
for all game players' 
Christmas!) 


is a good game and 
a possibility 
shopping (or 


lists. re] 
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THREE SHORT GAMES 


by N. Silver 


Although most of the games that appear in Elbug stretch over many 
pages, it is possible to produce an entertaining game in just a _ few 
lines. Here we present three games that you can type into your 
Electron between the turkey and the plum pudding on Christmas day. 


Each of these three games is a 


masterpiece of miniaturization in its 10 @$=778: X=20: Y=11:S=0:D=0 

own right. Each can, in fact, be 28 A=RND (40) -—1:B=RND(11) 

crammed into a single program line 38 MODE 6:VDU 23,1,9;0;9;9; 

though here they are presented in a 4@ REPEAT 

Slightly more readable form. Although 50 C=INKEY 9 

they each take but a few seconds to 68 X=X+(C=90) —(C=88) :X=(X+40) MOD4G: Y 
type in, they will keep you happy for =Y+ (C=58) —-(C=47) : Y= (Y+22)MOD23+1 

hours. 78 S=S+SGNINSTR ("ZX/:",CHRSC) : D=SOQR ( 


ABS (A-X) ~2+ABS (B-Y) ~2) 
84 VDU 7807; 
99 PRINTS,D 
180 VDU 31,X,Y,42 
118 UNTIL D=@:VDU 7 
128 REPEAT UNTIL GET=32: RUN 


TREASURE HUNT 

Treasure hunt 1S a game of pure luck 
combined with a touch of skill. The 
display is simple, as are the rules. 
You control the asterisk in the centre 
of the screen with the usual keys: Z 
and X for left and right and * and ? to 


move up and down. At the top of the TRUFFLE HUNT 
screen there are displayed two figures. Truffle hunt is a game in colour, in 
The left hand one is' the number of only 16 short lines of Basic. In case 
moves that you have made so far. The you have never seen one, truffles (for 
right hand figure is the distance, in this game, at any rate) look remarkably 
character positions, to the hidden like yellow colons! As you drift ever 
treasure. You have to guess the upwards you have to steer around the 
direction to the treasure, with the screen (field), using the Z and X_ keys 
help of the distance readout, and get for left and right, colliding with as 
there in the minimum of moves. many truffles as you can. All the time 
you leave a white trail behind you. You 
Once you're there, the game must be careful to avoid this trail. 
finishes. You can start a new game by 
pressing the space bar. You must also avoid the red 


asterisks (poisonous mushrooms) that 
litter the field. As soon as you 


disappear off the top of the screen, 


Cl RR ee eS es PCS POS LOS ST 
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you re-appear at the bottom and as you 
drift off the side you'll appear again 
on the opposite edge of the screen. 


Truffle Hunt is a fast game so keep 
your wits about you. The space bar will 
restart the game if (when!) you munch a 
mushroom. 


10 S%=0:X%=646: Y3=0 
28 MODES 
38 FOR I%=1 TO 50 
49 VDU 5,18;1,25,4,RND(127@) ;RND(192 
3) 742,18;2,9,9,124,18;3 
5@ NEXT I% 
68 REPEAT 
76 PLOT 69,X%,Y% 
88 DRAWX%S+8 , YS: X$=X$+8* ( INKEY-98-INK 
EY-67) 
98 X$=(X$+128G)MOD 1280 
108 Y$=Y%+4:Y%=Y% MOD 1424 
118 PS=POINT (X%, Y%) :St=S%- (P$=2) 
128 UNTIL(1 AND P%)=1 
138 VDU 7,4 
148 PRINT S% 
15@ REPEAT UNTIL INKEY-99: RUN 
168 END 


ASTERISK TRACKER 

Asterisk Tracker is arguably the 
best of this suite of mini games. The 
concept 1s very simple. The playing 
area covers the whole of the screen. 
This is bounded with a white line. At 
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is a small break in this line. Dotted 
around the screen there are a number of 
asterisks. 


Enter you, stage left. You control a 
fast moving line that has (as Newton 
would be pleased to explain) a tendency 
to descend to the bottom of the screen. 
Your one control is the Return key 
which temporarily reverses gravity. 


The idea is to steer the advancing 
line between the asterisks and through 
the hole in the border. If you once 
touch the border, or an asterisk, you 
die! 


Managing this the first time is 
easy. Next time, however, the screen 
has more asterisks, and the third time 
even more, and so on, until you fail! 
The number of the screen that you are 
playing is displayed at the top of the 
screen. You can start a new game by 
pressing the space bar. 


18 L=@ 

20 REPEAT 

38 MODE 4:L=L+3 

48 DRAW 1279,0:DRAW 1279,452 

5@ MOVE 1279,572:DRAW 1279, 1023:DRAW 


68 FOR I%=1 TO L 

76 VDU 31,RND(32)+5,RND(31) ,42, 30 
88 NEXT I% 

98 PRINT (L-3) /3 

100 X=@0:Y=512 

110 REPEAT 

128 PLOT 69,X,Y 

130 X=X+43 Y=Y- (INKEY-74+.5) *8 
148 UNTIL POINT (X,Y)=1 OR X=128@ 
15@ UNTIL X<1280:VDU 7 

16@ REPEAT UNTIL INKEY-99:RUN 
178 END 


By the time you've read all this you 
could have typed in all three games and 
played four rounds on each of them. 
What are you waiting for? Start typing 
and have fun! 


the right hand edge of the screen there & 


INTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


MACROS IN ASSEMBLER 

If you are using functions to generate macros in the Electron's 6582 assembler, 
then you will find it more reliable to use EQUS to call your code and to return a 
null string than to use OPT and return the current 'pass'. The reason for this is 
that there are some obscure bugs in the OPT section of Basic which don't occur when 
using EQUS. 
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TEXT TO ORDER 


by Alan Dickinson 


Alan Dickinson shows how to produce some scintillating displays of 


text in mode 5, one of the most 


useful graphics modes on the 


Electron, yet often rejected for its otherwise poor characters. 


Mode 5 is a screen mode which offers 
four colours, graphics, chunky 
characters, am uses only 10k of 
memory. Surely this is an ideal mode 
for many applications requiring a 
mixture of text and graphics, such as 
educational programs aimed at children, 
and programs which cannot afford the 
luxury of the 28k of RAM gobbled up by 
mode 1. Yet it rarely seems to be used, 
and the reason isn't difficult to see - 
mode 5 text looks terrible! 


PROPORTIONAL SPACING 

One way to improve the appearance 
of text inmode 5 is to design a 
completely new character set, seven 
pixels wide, and pack the characters 
slightly closer together. This requires 
rather a lot of brain-power, not to 
mention RAM for the exploded character 
set. An alternative approach is to use 
the existing character set, and to 


proportionally space the text 
according to the width of each 
individual character. This form of 


spacing is the type of spacing we 
normally see in books, magazines, and 
so on, and is much more pleasing to the 
eye than text arranged into strict 
columns. 


Proportional spacing used in mode 5 
often allows around 22 characters per 
line, because characters such as 
spaces, full stops amd commas do not 
take up the full character cell width. 
The disadvantage is that all output has 
to be written via the graphics cursor, 
and is therefore considerably slower 
and less convenient for the programmer. 


The routine PROCwidth is_ the key 
routine for calculating the width 
required. It uses an Operating System 
routine called OSWORD to read _ the 
character definition, and logically 
‘OR's together the eight rows of the 
definition into a_ single amalgamated 
row, from which it can deduce the 
overall width of the character. The 
amount of redundant space to the left 


PROPORTIONAL SPACING 


Proportional araecing o-zar 
Fit more ohaeracters omtco 
a MODE SS s2oreer:, mreck it“= 
reater ws well. 


For example.... 


A2343567069 . 9SB7eEe5432189 
£23456 7809.90 76543210123 


ELBUG Magazine 


Chriantermas 1 OSes 


and right of the character is stored in 
L$ and R% for use by the printing 
routine. In order to make conversion to 
other modes simpler, W% contains the 
pixel width for the mode in use. If you 
use this program in another mode, 
change W% as follows: 


MODE @ - W%=2 
MODE 1 — W%=4 
MODE 2 - W%=8 
MODE 4 -— W%=4 
MODE 5 — W%=8 


The technique cannot be applied to 
modes 3 or 6 as these are not graphics 
modes, an essential requirement. 


PROCp is the printing routine which 
is passed a character size, (1 or 2 
only), and the string to be printed. 
The text is printed at the graphics 
cursor and in the current graphics 
foreground colour. If you do not 
require any double-height text, then 
all references to the size parameter, 
S%, and PROCdouble may be eliminated. 


BACKLIGHTING OF TEXT 

3D 0«6plettering)3=§ effects may be 
obtained by printing text in black, and 
then overprinting the text with a 
Slight x and y offset in a _ lighter 
colour. The portions of black which 
orotrude from behind the text create a 
shadow effect. This technique can be 
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Beockilighting 
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taken further to produce a complete 
black outline to the letters you are 
printing, and the WIDTH routine is used 
to ensure that characters do not 
overlap. A routine to perform this 
backlighting is included, PROCb. Again, 
a slze parameter is passed, which can 
be eliminated if double-height text is 
not required. 


The program includes a couple of 
demonstration routines, the first 
illustrates the use of proportionally 
spaced text, and the second displays 
the character set as back-lit 
double-height characters. Adapt these 
routines to your own requirements, and 
make your mode 5 # programs more 
attractive. 


[ELBUG readers might also like to refer 
back to previous issues of ELBUG, 
notably Vol.1 Nos.1,2 and 3, for other 
ideas on interesting ways of displaying 
text. Ed.] 


Me ae 


1@ REM Program PROTXT 
20 REM Version E1.9@ 
38 REM Author Alan Dickinson 


40 REM ELBUG' December 1984 

50 REM Program subject to copyright 
60 : 

198 MODES 


118 ON ERROR GOTO 6989 
129 VDU19,2,6,9,9,@ 

138 VDUS:WS=8 

148 GCOLG,129 

15@ REM Demonstration 1 
1690 REM s2=ss22222222=== 


188 CLG 
198 MOVE8@, 960 
288 PROCb(2,"PROPORTIONAL SPACING") 
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GCOLG, 3 
MOVE15,88@ 
PROCp(1,"Proportional spacing can 


MOVE15,756 
PROCp(1,"f£it more characters onto 


MOVE15, 788 
PROCp(1,"a MODE 5 screen, and it' 


MOVE15, 660 

PROCp(1,"neater as well.") 
GCOLG, 2 

MOVE15, 48@ 

PROCp(2,"For example....") 
GCOLG, 3 

MOVE15, 348 

PRINT" 123456789. 9876543210" 
MOVE15,272 

PROCp (1,"123456789. 9876543219123") 
MOVE15, 168 

PROCb(2,"ELBUG Magazine") 
MOVE15, 60 
PROCb(1,"Christmas 1984") 
AS=GETS$ 


REM Demonstration 2 
REM ==S=SsSSS2Ss==S=== 

CLG 

MOVE34@ , 960 

PROCb (1,"Backlighting") 
x=: y3=84G 

FOR n$=32 TO 126 
xb=x3+96 

IF x%>1160 THEN x$=96:y$=y$-96 
MOVE x%,y% 

PROCb (2,CHRS (n%) ) 

NEXT 

AS=GET$:MODE 6 

END 


ON ERROR OFF :MODE 6 

IF ERR<> 17 THEN REPORT:PRINT™ at 
*-ERL 

END 


REM Proportional spacing 
REM ======s=s===2==s==S==== 


DEF PROCp(s%,a$) 

LOCAL a%,c% 

FOR a%=1 TO LEN(aS) 
c%=ASC (MIDS (a$,a%,1)) 

PROCwidth (c$) 

IF s%t=2 THEN PROCdouble 
PLOT@,-L%,@ 

IF s%=1 THEN VDU c% 

IF s$=2 THEN VDU255,10,8,254,11 
PLOT@,-R%,G 
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1138 NEXT 1498 : 
1148 ENDPROC 1586 DEF PROCwidth(c$) 
1156 : 151@ LOCAL X%,Y%,A%,t%,us 
116@ REM Back-lighting 1528 X%=&7@ :REM Pointer to 
1178 REM ============= 1538 Y%=@  :REM data block 
1180 : 1540 A%=&A 
1198 DEF PROCb(s%,a$) 1558 ?&78=c% 
1286 LOCAL 3%,k% 1568 CALL &FFF1 
1216 FOR a%=1 TO LEN(aS) 1578 t%=d 
1226 c%=ASC(MIDS (a$,a%,1)) 1586 FOR u%=&71 TO &78 
1230 PROCwidth(c$) 1598 t%=tS OR ?us 
1249 IF s$=2 THEN PROCdouble 1608 NEXT 
1258 GCOLG,¢ 1619 IF t%=@ THEN L%=@:R%=4*W%: ENDPROC 
1260 PLOT@,-L%-wW%,G 1620 L%=-1:us=t% 
1278 FOR j%=-wW3 TO W% STEP W% 1630 REPEAT 
' 1288 PLOTG,9,-4 1640 L$=L+1 sus=us*2 
1299 FOR k%=-4 TO 4 STEP 4 1658 UNTILu%$>1 27 
1306 IF st=1 THEN VDU c%,8 1668 R&=-1:us=t3*2 
1319 IF st=2 THEN VDU255,19,8,254,11,8 1678 REPEAT 
1320 PLOTG,G,4 1680 R&=R$+1 :us=usDIV2 
1330 NEXT 1698 UNTIL(uSMOD2) =1 
1348 PLOTG,W%,-8 1768 L%=L%*WS: RE=RS*WS 
1350 NEXT 1719 ENDPROC 
1368 PLOT@,-2*W3,@ 1720 : 
1378 GCOLG,2 1738 REM This procedure defines two 
1388 IF s%=1 THEN VDU c% 1748 REM characters, 255 and 254, as 
1399 IF s%=2 THEN VDU 255,19,8,254,11 1758 REM a double-height version of 
1480 PLOTG,-R%,@ 176@ REM the last character processed 
1418 NEXT 177@ REM by PROCwidth. 
1428 ENDPROC 1788 : 
1430 : 1798 DEF PROCdouble 
1448 REM PROCwidth calculates the size 1888 VDU23,255, 2?&71,?&71,2&72,2&72, 2&7 
1458 REM of the blank column on each 3,2&73,27&74,2&74 
1468 REM side of the character passed. 1818 VDU23,254,?7&75, 2&75, 2&76, 2&/6, 2&/ 
147@ REM Returns values in L% and R3. 7, 2?&77,2&78,2&78 
1480 REM Assumes pixel-width in W%. 1828 ENDPROC & 
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EVEN BETTER INPUT? 

If you are using PRINT to print out a prompt just before inputting some data, and 
are finding that you get a '?' each time the Electron waits for data when you don't 
want it, then use INPUT "".... 
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NOISE FOR FIREWORKS - M. Scott 
If you liked the fireworks program published in ELBUG Vol.1 No.1@ then you might 
like to add the following line for some sound effects whilst the program is running. 
1615 IF RND(1@)<4 SOUND @,-15,4,1 eR 
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TIDY FORMATTING 

If you are writing a program in which you print a lot of numbers, but are finding 
that they either don't line up, or are taking up too much space, then try setting 
the special variable @% (see page 6@ onwards in the User Guide). The short program 
below illustrates briefly how this can be used: 

18 @%=4 

28 FOR I=@ TO 10 

38 PRINT I,; 

4@ NEXT I @ 
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White Knight 


Reviewed by Andy Jenkins 


Chess player, Andy Jenkins pits his wits against the combined forces 


of White Knight and the Electron. 


Title : White Knight (Mk.II) 
Supplier : BBC SOFT 

Price : £9.95 inc. VAT 
Rating had 


There are several chess. programs 
avallable for the Electron but let the 
buyer beware! The standard ‘varies 
widely. For a short time it will boost 
your ego to beat a weak program, but 
you'll soon tire, o£ that. The latest 
program from BBC» Soft, White Knight, 
claims to be’ S60 Strong that even 
above-averages players have to treat it 
with respects 


Those who find the program too 
Strong can always start off by letting 
it play itself and pick up some tips 
that way. White Knight will also solve 
problems of the mate in 2 or 3 variety. 


White Knight has all the standard 
features and a few novel ones. These 
are well described in the accompanying 
12 page booklet. The display is very 
clear and uses a two colour graphics 
mode in black and cyan. The time taken 
by each ‘player’ is displayed,at the 
top of the board diagram. 


There are three main playing modes: 
‘Equality’, "Average' and.*Tournament". 
the longer White Knight has to think, 
the stronger it will play. The three 
modes are just different ways of 
defining the machineé’s thinking time. 
In ‘Equality’ the machine will roughly 
keep pace with you. ‘Average’ requires 
you to specify an average response 
time. At the default value of 19 
seconds, White Knight will undertake to 
play 66 moves in 1@ minutes but may 
take longer than 18 seconds over 
individual moves. ‘Tournament’ allows 
you to specify tournament-style time 
limits if you are really serious e.g. 
forty moveS in two and a half hours, as 
used in the World Championship. 


In all cases you are in control of 
now quickly White Knight plays -a 
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Your move? 


great improvement over some rival 
programs. 


While White Knight is thinking it 
displays the best line it has _ found, 
updating this from time to time when it 
finds better lines. When making a move 
it gives the mumber of positions that 
it has examined and this can vary from 
about 259 to 250,000 or more when it 
has been thinking hard. 


Although the program plays a good 
game at the lowest level, it gets even 
stronger with extra thinking time 
However, after 1 or 2 minutes per move 
diminishing returns set in and the 
increase in strength becomes 
proportionately less. This is because 
the program finds most of the plausible 
moves fairly Quickly and then tends to 
spend the extra time choosing between 
them. When I threatened it with a crude 
mate in 1 it quickly found a defence 
which unfortunately allowed a more 
subtle mate in 3. It had to think for a 
further twenty minutes before 
discarding its original idea amd 
finding the correct reply. 


This does not detract from the fact 
that. White Knight is a remarkable 
programming achievement. It plays chess 
that is sound and sensible even at its 
lowest and quickest levels. If you want 
a chess program for your Electron then 
this looks like the one to get. 
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SOLITAIRE 


by Dave Robinson and Roy Walmsley 


Solitaire is a computerised version of the one player game of the 
same name. Rather than use the normal pegs and board, this version 
makes good use of your Electron's graphics abilities. 


The aim of the game is to finish 
with a single 'peg' in the centre of 
the board, the only position at the 
start that is unoccupied by a peg. Pegs 
are removed by hopping over them with 
other pegs. Moves can only be made 
vertically or horizontally - mot 
diagonally. 


The only legal move is to hop one 
peg over another into a hole. The peg 
hopped over is then removed. 


Although this may sound easy. it is 
in fact very difficult! You tend to end 
up with several pegs out on a limb, 
with no hope of removing them. 


In this Electron version the pegs 
are in fact space invaders - all the 
more reason to remove them! You hop an 
invader by moving a cursor to it using 
the usual keys, and then hit the space 
bar. This 'picks up' the invader. You 
then move the cursor to the target hole 
and press the space bar again. If it is 
a legal move then the invader you have 
jumped over is banished forever to the 
very darkest corners of your Electron's 
memory. 


If you pick up an invader and then 
change your mind about the whole move, 
you can reverse matters by simply 
returning it to its position = arm 
pressing the space bar again. 


When you have won, or (shame) you 
have moved all that you are able, the 
program will detect this am finish 
with a suitable congratulatory or 
consolatory message. 


PROGRAM NOTES 

The bulk of the game is in, or 
called from PROCplay, at line 2626. 
This procedure looks after the movement 
keys and calls another procedure, 
PROCcursor, tO move the cursor around 
the board. PROCcursor simply deletes 
the cursor in the old position, by 


printing a space, and displays the 
cursor in the new position. There is 
also a check to see if you have tried 
to move the cursor off the edge of the 
cross-shaped playing area (line 1798). 


The rest of PROCplay checks the 
state of the flag, up%t. This’ reflects 
whether you are in the middle of a 
"hop' or just moving around the board 
prior to one. Either of the procedures 
PROCpick and PROCputdown are called 


depending on this flag. 


The procedure, PROCcheck is called 


each time that PROCplay is executed 


after a hop, to check if the game is 
over yet. 


You'll never find a more peaceful 


way to zap the aliens! Good luck. 
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18 REM Program SOLITAIRE 
28 REM Version E1.9 
38 REM Authors D.Robinson 
& R.Walmsiey 
46 REM ELBUG December 1984 
5@ REM Program subject to copyright 


7@ ON ERROR GOTO 2758 


186 MODE 1 
118 PROCinit 
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128 PROCinstruct 1488 board (J%,1%) =226 
138 MODE 5 1419 NEXT: NEXT 
140 REPEAT 1428 board% (5,5) =225 
15@ PROCreset 1438 peg$=32 
16@ PROCdrawboard 1448 OX%=5:0Y%=5 
1708 REPEAT 145@ end$=FALSE: finisht=FALSE 
188 PROCplay 1468 wont=FALSE: upt=FALSE 
198 UNTIL end% 147@ ENDPROC 
208 IF board$(5,5)=226 AND peg%=1 THE 148¢ : 
N won%=TRUE 1498 DEF PROCdrawboard 
218 PROCend ing 1568 VDU19,¢,4;9; 
228 UNTIL finish’ 1518 VDU19,1,9;9; 
238 MODE6 1528 VDU19,2,1;9; 
249 END 1538 VDU19,3,3;9; 
256 : 1548 CLS 
1980 DEF PROCinit 1558 COLOUR 3 
1618 DIM board’ (16,19) 1568 VDU 29,6986; 500; 
1628 R$=310 1578 MOVE @,@ 
1038 FOR I%=1 TO 1@ 1588 FOR A=8 TO 7 STEP @.3 
1649 FOR J%=1 TO 190 1598 MOVE @,@:PLOT 85,R%*COS (A) ,R&*SIN 
1858 board% (I%,J%) =32 (A) 
1668 NEXT:NEXT 1608 NEXT A 
1878 VDU23,224,G,8,28,42,8,8,8,8 161@ PRINTTAB (5,3) "SOLITAIRE" 
1888 VDU23,226,126,98,126,60,36,66,129 1628 PRINTTAB (5,4) STRINGS (9,"'*") 
1@ 1638 COLOUR 131 
1898 VDU23,225,60,126,126,126,126,126, 1640 FOR I%=2 TO 8 
68,9 1658 FOR J%=2 TO 8 
1188 VDU23,227,8,8,8,8,42,28,8,8 1660 PROCpr int (board$ (I%,J%) , 1%,J%) 
111@ VDU23,1,9;9;9;9; 1678 NEXT: NEXT 
1128 ENDPROC 168@ PROCcursor (OX%$,OY$) 
1138 : 1698 ENDPROC 
1148 DEF PROCinstruct 1708 : 
115@ COLOUR 2 1718 DEF PROCprint (C%,X%,Y$) 
116@ PRINTTAB(15,1) "SOLITAIRE" 1728 COLOUR C%MOD4 
1178 PRINTTAB(15,2) STRINGS (9,"*") 173@ PRINTTAB (X%+4 , Y¥$*2+6) CHRSC% 
1188 COLOUR 3 1748 board% (X%,Y%) =C% 
1198 PRINTTAB(11,4) “Hop over the pegs" 1758 ENDPROC 
1208 PRINTTAB(11,6)"to leave a single" 1768 : 
1219 PRINTTAB(11,8)"peg in the centre" 1778 DEF PROCcursor (XC%, YC$) 
1228 COLOUR 2 1788 COLOUR 1 
1238 PRINTTAB(1@,11)"To move the curso 1798 IF board% (XC%, YC%)=32 THEN ENDPROC 
rs” 18@@ PRINTTAB (OX%+4 ,OY$*2+7) CHR$32 
124@ PRINTTAB(15,13)"Z -— LEFT" 18198 PRINTTAB (OX%+4 , OY$*2+5) CHRS32 
1256 PRINTTAB(15,15)"X -— RIGHT" 1820 PRINTTAB(XC%$+4, YC$*2+7) CHRS224 
1260 PRINTTAB(15,17)"* -— UB" 1838 PRINTTAB (XC%+4, YC$*2+5) CHRS227 
1276 PRINTTAB(15,19)"/ -— DOWN" 1848 OX$=XC%:OY$=YC% 
1288 PRINTTAB(1@,23) "space bar to pick 1858 ENDPROC 
up" 1868 : 
1298 PRINTTAB(11,25)"and put down a pe 1878 DEF PROCcheck 
ag 1889 IF pegt=1 THEN end%=TRUE: ENDPROC 
1388 COLOUR 3 1898 move%$=FALSE 
1318 PRINTTAB(11,3@)"SPACE BAR TO PLAY" 1989 FOR I%=1 TO 8 
132@ REPEAT UNTIL GET=32 1918 FOR J%=1 TO 8 
1338 ENDPROC 1920 IF board%(1%,J%)=226 THEN PROCgo 
1348 : 1938 IF move%=TRUE THEN I%=8:J%=8 
1358 DEF PROCreset 1948 NEXT: NEXT 
1368 VDU23,1,0;0;9;90; 1958 IF move%$=FALSE THEN end%=TRUE 
1378 FOR I%=2 TO 8 1968 ENDPROC 
1380 FOR J%=4 TO 6 1978 : 
1398 board$ (I%,J%) =226 1986 DEF PROCgo —> 
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1999 IF board%(1%-1,J%)=226 AND board% 2388 Jmid%=Jfirst%+ (JstepsDIV2) 
(1$-2,J%) =225 THEN move%$=TRUE: ENDPROC 2398 IF boards (Imid%,Jmid%)<>226 THEN 
2000 IF board%$(1%+1,J%)=226 AND board% ENDPROC 

(1$+2,J%) =225 THEN move%3=TRUE: ENDPROC 2486 SOUND 1,-15,19,3 

2018 IF board%$(1%,J%-1)=226 AND boards 2418 PROCprint (225, Ifirst%,Jfirst$) 
(1%,J%-2) =225 THEN move%3=TRUE: ENDPROC 242@ SOUND 1,-15,808,3 

2020 IF board%(1I%,J%+1)=226 AND board’ 2430 PROCprint (226, Ilast%,Jlast%) 
(I$,J%+2)=225 THEN move%=TRUE 2448 SOUND 1,-15,80,3 

2838 ENDPROC 2458 PROCprint (225, Imid%,Jmid$) 

2040 : 2468 up%=FALSE 

2658 DEF PROCplay 2478 pegt=pegs-1 

2068 IF up$=FALSE THEN PROCcheck 2488 ENDPROC 

2070 IF end%=TRUE THEN ENDPROC 2498 : 

2080 REPEAT 2508 DEF PROCreplace 

2098 Xpos$=O0X%: Ypos%=OY% 2518 PROCpr int (226, Xpos%, Ypos%) 

"2188 AS=GET$ 2528 ups=FALSE 

2110 IF AS="Z"THEN Xpos%$=Xpos%-1 2538 ENDPROC 

2120 IF AS="X"THEN Xpos%=Xpos$+1 2540 : 

2138 IF AS=":"THEN Ypos%$=Ypos%-1 2558 DEF PROCending 

2140 IF AS="/"THEN Ypos%=Ypos%+1 2568 TS=TIME+1@0:REPEAT UNTIL TIME>T% 
215@ PROCcursor (Xpos%, Ypos%$) 2578 COLOUR 128:COLOUR2 

2160 UNTIL AS=CHR$32 2588 PRINTTAB(5,6) "Game Over" 

2176 IF board’ (Xpos%, Ypos%)=226 AND up 2598 COLOUR3 
$=FALSE THEN PROCpick:ENDPROC 2600 IF wont THEN PRINTTAB(2,26) “Congr 
2188 IF board’ (Xpos%, Ypos%)=225 AND up atulations" 
$=TRUE THEN PROCputdown: ENDPROC 2610 IF NOT(won%) THEN PRINTTAB(1, 26)" 
2198 IF board%(Xpos%,Ypos%)=227 AND up A good try - better"TAB(3,27) "luck next 
%=TRUE THEN PROCreplace time" 

2268 ENDPROC 2628 COLOUR2 

2210 : 2630 FOR P%=200 TO 58 STEP-190 

2228 DEF PROCpick 2649 SOUND 1,-15,P%,2 

2238 Ifirst%=Xpos% 2658 NEXT P% 

2248 Jfirst%=Ypos% 2668 TS=TIME+190:REPEAT UNTIL TIME>TS 
2258 SOUND 1,-15,80,3 2678 PRINTTAB(1,29)"Another game - Y/N" 
2268 PROCpr int (227, Xpos%, Ypos%) 2688 SOUND 1,-15,280,3 

2276 up%=TRUE 2698 REPEAT 

2288 ENDPROC 2786 AS=INSTR("“YyNn",GETS) 

2298 : 2718 UNTIL A&>d 

2368 DEF PROCputdown 2720 IF A%>2 THEN finish%=TRUE 

2318 Ilast%=Xpos% 2738 ENDPROC 

2320 Jlast%=Ypos% 2748 : 

2338 Istept=Ilast%-Ifirst% 2758 ON ERROR OFF 

2348 Jstept=Jlast%-Jfirst% 2768 MODE 6 

2358 IF Istep%*Jstep$<>g@ THEN ENDPROC 2778 IF ERR=17 THEN END 

2368 IF ABS(Istep$+Jstep%)<>2 THEN END 2788 REPORT: PRINT " at line ";ERL 

PROC 2798 END 

2378 Imid%=Ifirst%+ (IstepsDIV2) ® 
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DECIMALS TO FRACTIONS - Jonathan Wilson 
The short program below takes as input a decimal number (eg 1.125), and outputs 

the lowest common denominator fraction (9/8 for the example above). Note that values 
of zero will produce the response 'Silly'. 

18 INPUT"Decimal "D:T%$=D*1E7:BS=1E7 

28 REPEAT READC$:IF (TSMODC%=@) AND (BSMODC%=0) T%=T%$/C%:B%=BS/C%: RESTORE 

38 UNTIL C%=97:IF T$=@ PRINT "Silly" ELSE PRINT "Fraction ";T%;"/";B% 

46 DATA 2,3,5,7/11,13,17,19,23,29,31,37,41,43,47,53,59,61 ,67, 7/1, 73,97 cd 
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FILE HANDLING (PART 1) 
by Geoff Bains 


Computers are ideally suited to storing large quantities of 
information. Although many Electron users want to make use of this 
ability of their micro, the whole subject is steeped in mystery. In 
this, the first of a series of articles on data files, Geoff Bains 


lifts the veil a little. 


Everything that your Electron does 
it does by manipulating numbers. All 
text and strings are so many figures to 
the Electron (ASCII codes, in fact), 
all graphics are just a lot of 
co-ordinates. You know how to handle 
those subjects, however when it comes 
to storing and recalling these numbers 
themselves, many Electron owners 
flounder. Learning the methods of 
handling this data may be a new skill 
but the step involved is not as great 
as you'd think. 


File handling is all about the 
storing and recalling of data - whether 
it is numeric or text. When data is 
manipulated within a program it is 
stored aS a series of values. Using 
that system for the permanent storage 
of records is obviously not practical. 
For a start it is very wasteful of 
memory. In addition all values of 
variables are, of course, lost when you 
turn your Electron off. A _ permanent 
external method of storage is needed. 


To store data we can use one of 
three methods: 


Data statements 
Cassette file 
Disc file 


The last method is not yet available 
to Electron users as there is no disc 
interface available for the Electron. 
However, this will shortly change. 


The first method uses the DATA 
statements that we know am love. 
Numbers stored in DATA statements can 


be stored permanently by saving the 
program. The DATA statements are of 
course saved along with all the other 
Basic statements. The advantage of 
using DATA statements is that they 
provide very quick access to the data. 
Take a simple program like this, for 


example. 


1@ REM DATA statement demo 

28 MODE 4 

38 FOR I%=1 TO 12 

48 READ monthS,monthno 

58 PRINT month$;" is month number "; 
monthno 

68 PRINT 

78 NEXT I% 

88 DATA January,1,February,2,March,3 

98 DATA April,4,May,5,June,6 

188 DATA July,7,August,8, September ,9 

11@ DATA October,18,November,11,Decem 
ber ,12 


The program quickly reads through 
all the data and processes it - in this 
case it just prints it all out. Just 
printing out the data is none too 
useful. We want to make the computer 
work. The next program will search the 
data for a particular value. 


1@ REM DATA statement search demo 

28 MODE 4 

3@ INPUT"Which month number do you w 
ant ",N 

48 PRINT 

50 FOR I%=1 TO 12 

68 READ month$,monthno 

7¢ IF monthno=N THEN PRINT "Month nu 
mber "eN:" is “smonths 

88 NEXT I% 

98 DATA January,1,February,2,March, 3 
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168 DATA April,4,May,5,June,6 

118 DATA July,7,August,8, September ,9 

128 DATA October,19,November, 11 ,Decem 
ber ,12 


Although this method does simple 
jobs such as these quite well it has 
one overriding disadvantage. To make 
any alterations or additions to the 
data you have to alter the program 
itself. This has to be done, as it 
were, manually, by editing. A Basic 
program cannot easily alter its own 
DATA statements. This drawback 
immediately rules out this method of 
storing data for any but the most 
trivial of applications. 


Far better is the second method 
mentioned above. Storing data on 
cassette means that you can alter and 
add to the data with one program and 
process it with another, or even 
several other, programs. 


Before we look at methods of 
handling cassette files it would be a 
good idea to establish a little of the 
(inevitable) jargon that accompanies 
this subject. For this we will consider 
an example - a library index file. 


In libraries there is usually a card 
index containing details on all the 
books in the library. The entire index 
is called a ‘file’. It is a group of 
related pieces of information. Each 
card in the index is a ‘record’. The 
record contains all the information 
about one item (a book in this case). 
Each piece of information is called a 
‘field'. The author's name is a field, 
as is the British Library 
classification. 


As a further example, a company 
might keep a 'file' of employee wages. 
This would contain several '‘records', 
each concerning one employee. In each 
record there would be several ‘fields', 
the employee's name, address, payroll 
number, wage, and so on. In _ this 
example the records are not on separate 
cards as the Library card index is, but 
they are distinct sections of the file 
and so are treated as entities in their 
own right. 


To keep the early examples of 
cassette files simple we will start 
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with an example file that has only one 
field per record. That is, a simple 
list. Let's consider a list of home 
computers you may have considered 
before you bought your Electron. 


Home computers 


Amstrad Electron 
Atmos 
BBC micro VIC 206 
CBM 64 ZX 81 


We will write a program’ that 
produces a cassette file of this data. 
There are several Basic commands that 
are not used in any other applications 
that you will need to learn to handle 
data files. 


Data handling commands. 


BPUT# OPENIN 

BGET# OPENOUT 
CLOSE# OPENUP 

EOF# PRINT# 

INPUT# PTR# 


Using a cassette file is in many 
wayS Similar to using a file in an 
office. You do not need to know the 
details of the filing operations. The 
Electron looks after all that for you. 
It is as though there is a secretary to 
look after the filing system. The 
Electron can use up to five different 
secretaries, each looking after five 
different files, at once. However, with 
a cassette system, using more than one 
secretary at a time is impractical. 


At the start of your work you must 
tell the secretary that you are going 
to be using a file. The OPEN commands, 
above, do this. To ‘open’ a file for 
output - writing data from the computer 
to a cassette file - we use OPENOUT: 


CAROL=OPENOUT "MICROS" 


We have told the imaginary secretary 
called CAROL to use a file called 
MICROS. When you type in this command 
you should have a cassette ready for 
recording in your recorder. As soon as 
you press Return after this statement 
the recorder will start and the header 
for the file is recorded onto the tape. 


CAROL is’ the name of the secretary 
that we are to use. Of course the 
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Electron doesn't really use 
secretaries. It actually uses a system 
Known as channels. We have opened a 
channel for output and called it CAROL. 
We could have called it anything we 
liked. The Electron just uses numbers 
to distinguish between channels. You 
don't need to know which channel is 
actually being used but if you type in 
PRINT CAROL, it'll tell you. 


So far we haven't put anything in 
the file. We can do this’ with the 
command PRINT#. PRINT# is totally 
Gifferent from PRINT. You must not 
confuse the two. Now we can fill our 
cassette file with the names of the 
micros: 


PRINT# CAROL,"Amstrad", "Atmos", "BB 
C micro", "CBM 64", "Electron", "Spectr 
um", PIC 28", ad A gi" 


First the secretary (channel) is 
specified and then the data. When we 
have finished we must’ tell the 
secretary this and close the file. We 
do this with the command CLOSE# 


CLOSE# CAROL 


We can put all of this into a short 
program: 


1@ REM simple cassette file demo 

28 CAROL=OPENOUT "MICROS" 

38 PRINT# CAROL, "Amstrad", "Atmos", 
"BBC micro", “CBM 64", "Electron", 
"Spectrum", "VIC 26", "ZX 81" 

49 CLOSE# CAROL 


You will find that any error in line 
38 will cause the program to stop with 
the file left open. It is not a good 
idea to leave open files lying around. 
So if this occurs you must close the 
file, as it were, by hand. Type in 
CLOSE# CAROL or even CLOSE#@, which 
closes any files that are open. 


Now you have a file consisting of a 
list of micros. In the next issue we 
will see how this data can be read back 
into the Electron and some use made of 


it. 
@ 
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BASIC MEMORY RESERVE 


When using the 6562 assembler built into Basic, you may wish to reserve an amount 
of memory for your program. This can be accomplished by using the EQUS pseudo 


command, like this: 
-memory EQUS STRINGS (amount ,CHRS@) 


Note that no more than 255 bytes may be reserved like this. This method also ensures 
that the memory is cleared to a specific value (in this case 9). & 
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If you are not using the cassette system for file access (not using OPENIN, 
OPENOUT or OPENUP), there is another 1/2k of memory available from &9@@ to &AFF. 
Note that loading and saving to cassette by Basic does not use this area anyway. * 
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STRANGE ERROR LINES 
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Basic, although quite accurate at spotting errors, doesn't always manage to get 
the error line correct. For example, if you run the program below, it says that the 
error is in line 46, whereas it is line 19 that needs to be corrected! If you are 


Writing a program, and find an error in the 


"DEF PROC’ part of a procedure, check 


the line that is calling it for errors as well. Another error (a bit more subtle) 
would have arisen if we'd just put A inside the brackets at line 10; the program 
would have worked, but printed up a zero. Strange! 


18 PROCerror (VAL 1@) 
26 END 


48 DEF PROCerror (A) 
5@ PRINT A 
68 ENDPROC 
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GEORGE AND THE DRAGON 
by O. R. Thomas 


Now it's time for some light-hearted relief from zapping and 
blasting aliens. No sooner has your Christmas pudding settled than 
you are off to rescue ‘Hideous Hilda’ from the flames of the dragon, 
in this fast and exciting action game. 


The idea of the game is to run along 
each level, jumping over the moving 
hole to collect the key which will 
allow George to climb the ladder up to 
the next level. George needs to reach 
the top level to free ‘Hideous Hilda' 
before the dragon's flame reaches her. 
If you succeed in freeing Hilda, you 
proceed onto the next screen, where in 
addition to moving holes in the floor, 
you will have to face the additional 
hazard of arrows being fired just above 
your head. 


The keys to use to play this game 
are 'Z' and '‘'X' for left and right, 
plus '/' to climb the ladders and 
"Shift* to jump. There are nine 
different skill levels ranging from 1, 
which is fast, to 9 which is slow. As 
you complete each screen, the game 
automatically gets faster and faster. 


Remember to take extra care when 
typing in the character and string 
definitions (between lines 1078 and 


1330), as mistakes here will corrupt 
the screen display when you run the 


program. 


So now you are ready to undertake 
your perilous quest, to thwart the 
wicked dragon by reaching ‘Hideous 
Hilda' in the nick of time. 
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1@ REM PROGRAM GEORGE 
28 REM VERSION E@.1 
38 REM AUTHOR O.R.THOMAS 
46 REM ELBUG DECEMBER 1984 
58 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
108 ON ERROR GOTO 2899 
118 MODE] 
12@ PROCinstructions 
13@ hi%=@:MODE 1:REPEAT 
148 PROCskill:PROCvariables 
158 FOR lives$=2 TO @ STEP-1 
168 MODES: PROCcharacters 
178 PROCscreen: PROCsetup 
189 time%=0: total time%=8 
198 REPEAT: time%=time$+1 
200 IF time%>=pause% times=9:totaltim 
e%=total time%$t+1 : VDU5: GCOLG, 2:MOVE (total 
time$*32) +32,816: PRINT£lameS$: VDU4 
210 IF totaltime%=37 dead%=TRUE 
228 PROCman 
236 IF NOT jump% AND xpos%=holepos$ d 
eads=TRUE: GOTO29¢G 
248 PROChole 
258 IF NOT jump% AND xpos%=holepos% d 
ead%=TRUE: GOTO29G 
268 IF xpos%=keypos% AND ypos%=keyhei 
ght% key%=TRUE:SOUND1 ,-15,190,1:score%= 
score$+5@ ; PROCscore : keypos%3=2@ 
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270 IF arrow’ AND xpos%=arrowpos% AND 
ypos%=keyheight$ dead%=TRUE:GOTO299 
289 IF arrow%$ PROCarrow 
296 UNTIL dead%: PROCdeath 
308 FOR ag%=1 TO 15:SOUND@,-15+ag%, 10 
Q,2:NEXT 
318 jump%=FALSE: jumpno$=9: ychange$=6: 
xchange%$=9 
32@ dead%=FALSE: PROCscore: NEXT 
338 COLOUR2: PRINTTAB (4,17) STRINGS (12, 
CHRS$32) ;TAB(4,18)" GAME OVER ";TAB(4,1 
9) STRINGS (12,CHRS$32) 
348 TIME=@0:REPEAT UNTIL TIME>3@¢@ 
35@ IF score$>hi$ hi%=score% 
368 MODE1: PROCscodisp 
378 UNTIL QS="N":MODE 6 
388 END 
398 : 
1980 DEF PROCvariables 
1018 key3=FALSE:deadt=FALSE: score%=@ 
1928 level%S=1: jump%=FALSE: jumpno$=d 
1938 arrows=FALSE: arrowpos%=1@ 
1948 ENDPROC 
105@ : 
1968 DEF PROCcharacters 
1878 VDU23,224,56,56,56,48,62,62,56,56 
> VDU23,225,56,56,56,48,48,48, 48, 56 
1888 VDU23,226,28,28,28,12,124,124,28, 
28: VDU23, 227, 28,28,28,12,12,12,12,28 
1698 VDU23,228,60,60,189,153,255,255,6 
9,60: VDU23,229,60,60,60, 36, 36, 36, 36, 192 
1186 VDU23,230,08,0,9,9,24,44,118,175 
1118 VDU23,231,32,32,48,60,251,255,254 
7252: VDU23,232,248,252,255,254,224, 96,1 
12,80 
1126 VDU23,233,0,16,32,96,224,96, 32,16 
:VDU23,234,60,68,126,126,255,255, 36,182 
1138 VDU23,235,96,97,149,159,159,144,9 
6,96: VDU23, 236, 255,255,255,129,66, 36,24 
7255 
1148 VDU23,237,129,129,129,255,255, 129 
, 129,129: VDU23,238,9,0,0,99,254,99,8,0 
1158 VDU23,239,9,9,8,198,127,198,9,0:VD 
U23,2498,129,129,129,129,129,129,129,129 
1168 VDU19,3,4;9; 
1178 VDU23,1,0;0;9;0; 
118@ right$=CHRS$17+CHRS$1+CHRS$224+CHRS1 
8+CHRS$8+CHRS 1 7+CHRS$2+CHR$225 
1198 leftS=CHRS$17+CHRS$1+CHR$226+CHRS1 @ 
+CHRS$8+CHRS 1 7+CHR$2+CHRS$227 
1208 stillS$=CHRS$17+CHRS$1+CHRS$228+CHRS1 
8+CHRS8+CHRS 1 7+CHRS$2+CHR$229 
1218 deadS=CHR$32+CHRS 1 9+CHRS$8+CHR$1 7+ 
CHR$2+CHRS$23G 
1228 dragon$=CHRS$ 1 7+CHRS$1+CHR$231+CHRS$ 
18+CHRS$8+CHR$232 
1238 flameS=CHRS$17+CHRS2+CHRS$233 
1248 maiden$=CHRS$17+CHR$2+CHR$228+CHRS$ 
18+CHRS$8+CHRS 1 7+CHRS1+CHRS$234 
1258 key$=CHRS$17+CHRS$3+CHRS$235 
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Hele George to 
holes as he 


dod¢ge arrows and ieap 
rushes to grasp the 
keys ellewing hie ‘further up the 
batt lenents. But 
Hideous 


over 


hurry - you aust 
Hilda 
dragon’s flames reach her. 


rescue before the 


The controls are as follows : 


PRESS SPACE TO CONTINUE 


1268 safefloorS=CHRS$17+CHRS1+CHRS$236 

1278 danger floor$=CHRS$17+CHRS$3+CHR$236 

1288 ladder$=CHR$17+CHR$2+CHR$237 

1298 doubleladder$=CHR$17+CHR$2+CHR$23 
7+CHR$1 9+CHRS$8+CHR$237 

1300 arrowleftS=CHRS$17+CHR$2+CHR$238 

131@ arrowright$=CHR$1 7+CHR$2+CHR$239 

1328 gapS=CHRS$17+CHRS1+CHRS$24d 

1338 blank$=CHR$32+CHRS$1 G+CHRS$8+CHR$32 

134@ ENDPROC 


1368 DEF PROCScreen 

1378 GCOLG, 130: VDU24, G@; 847; 1279; 1823; 

1388 CLG: VDU24,@; 16; 1279;80; :CLG 

1398 GCOLG, 128: VDU24, 8; 855; 1271;1815; 

1488 CLG: VDU24,8; 24; 1271; 72; :CLG 

1410 VDU24,0; 0; 1279; 1023;:VDU5 

1429 GCOLG, 1:MOVE24,991 

1438 PRINT"George & The Dragon" 

1448 GCOL@,2:MOVE32,995 

1458 PRINT"George & The Dragon" 

1468 VDU4: PROCscore 

1478 PRINTTAB(6,3)"SCORE :" 

1486 PRINTTAB(9,4)"HI :" 

1498 PRINTTAB(6,30)"LEVEL ";level$% 

1588 PRINTTAB(@,6)dragon$ 

1518 PRINTTAB(19,6)maiden$S 

1528 PRINTTAB(1,26)still$S 

1538 xpos$=1:ypos%=26 

1548 PRINTTAB(G,8) STRINGS (29,dangerflo 
or$) 

1558 FOR aht=12 TO 28 STEP 4 

156@ PRINTTAB(@,ah%) STRINGS (20,safeflo 
or$) 

1578 PRINTTAB (4,ah%) STRINGS (12,dangerf 
loorS) 

1588 NEXT: anyx%=18 

1596 FOR ah%=8 TO 24 STEP 4 

1669 FOR anyy%=ah% TO ah%+3 

1618 PRINTTAB(anyx%,anyy%) ladder$S 

1628 NEXT 

1638 IF anyx$=18 anyx%=1 ELSE anyx%=18 

1640 NEXT 

1658 ENDPROC 
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DEF PROCscore 

1688 COLOUR2 

1698 IF lives%<1 GOTO 173 

1786 FOR aht=@ TO lives%-1 

1718 PRINTTAB (ah$+1,3) right$ 

1728 NEXT 

1738 PRINTTAB (lives$+2, 3) blank$ 

1749 PRINTTAB(14,3) ;scores 

1758 PRINTTAB(14,4) ;his% 

1768 ENDPROC 

1778 : 

1788 DEF PROCman 

1798 IF jump% PROCjump: GOTO! 86d 

1886 xchange%3=9 

1818 ychange%=0 

1820 IF INKEY(-98) AND NOT jump% xchan 
ges=-1 

183@ IF INKEY(-67) AND NOT jump% xchan 
ges=1 

184@ IF INKEY(-1) jump%=TRUE 

1858 IF INKEY(-105) AND POINT (xpos%*64 
, (32-ypos$) *32+36)=2 AND key% PROCclimb 

1860 IF xchange%<>@ OR jump% PRINTTAB( 
xpos%, ypos%) blank$: IF POINT (xpos%*64, (3 
2-ypos%) *32+36)=2 AND NOT jump% OR POIN 
T (xpos$*64, (32-ypos%) *32+4)=2 PRINTTAB( 
xpos , ypos%) doubleladder$ 

1878 IF jumpno$=3: jumpnos=G: jump$=FALSE 

1888 xpos%=xpos%+xchange% 

1898 ypos%=ypos%+ychange% 

1908 IF xpos%<@ xpos%=@ 

1918 IF xpos%>19 xpos%=19 

192@ IF xchange%=1 PRINTTAB(xpos%,ypos 
%) right$ 

1930 IF xchange%=@8 PRINTTAB (xpos%,ypos 
%) stills 

1948 IF xchange%=-1 PRINTTAB(xpos%,ypo 
s%) left$ 

1958 ENDPROC 

1968 : 

1978 DEF PROCclimb 

1988 key%=FALSE 

1998 FOR ah%=1 TO 4 

2808 SOUND1,-15,58*ah%,2 

2019 IF aht=1 PRINTTAB(xpos%,ypos%+1) 1 
adder$:GOT02436 

2828 PRINTTAB (xpos% , ypos%$+1 ) doubleladd 
er$ 

2838 ypos%=ypos%-1 

2048 PRINTTAB (xpos%, ypos%) still$ 

2858 NEXT 

2068 scoret=score%$+19: PROCscore 

2078 IF ypos%=6 CLS: level%t=level%+1:sc 
oret=score$+ ( (37-totaltime%) *18) : PROCsc 
reen:totaltime%=9:IF pauset>5 pause%=pa 
use$-1 

2088 PRINTTAB (arrowpos%,keyheight$) ;CH 
RS$32 
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2998 IF POINT (arrowpos%*64, (32-keyheig 
ht%) *32+4)=2 PRINTTAB(arrowpos%,keyheig 
ht%) ladder$ 

2188 PROCsetup 

2118 ENDPROC 

2120 : 

2136 

2146 

2158 

2168 

2178 

2188 

2198 

2288 : 

2218 DEF PROCsetup 

2228 IF ypos%<26 PRINTTAB(4,ypos%$+6) ST 
RINGS (12,safefloor$) 

2236 holepos%=1@:holedir$%=1 

2248 keypos%=RND (12) +3:keyheight%=ypos 
$-1 

2258 key%=FALSE: PRINTTAB (keypos% , ypos% 
-1) key$ 

2269 IF level%>1 arrow%$=TRUE: arrowpos% 
=RND (18) :IF arrowpos%<1@ dir%=1 ELSE di 
rt=-] 

2278 ENDPROC 

2286 : 

2290 DEF PROCarrow 

2388 PRINTTAB (arrowpos%,keyheight$%) ;CH 
RS32 

2310 IF arrowpos%=keypos% PRINTTAB(arr 
owpos% ,keyheight$) ;key$ 

2320 IF POINT (arrowpos%*64, (32-keyheig 
ht%) *32+4)=2 PRINTTAB(arrowpos%,keyheig 
ht%) ladder$ 

2330 arrowpos$=arrowpos$+dir% 

2348 IF dir%=1 AND arrowpos%>19 dir%=- 
1 sarrowpos%$=19 

2358 IF dir%=-1 AND arrowpos%<@ dir%=1 
sarrowpost=G 

2366 IF dir%=1 PRINTTAB(arrowpos$,keyh 
eight$) arrowright$ 

2376 IF dir%=-1 PRINTTAB(arrowpos’, key 
height$) arrowleft$ 


DEF PROCjump 
jumpnos=jumpnos+1 

IF jumpnot=1 ychange%=-1 

IF jumpno$=2 ychange%s=@ 

IF jumpno%=3 ychange%=1 

SOUND 1 ,-10, 140+ (30* ychange$) , 1 
ENDPROC 
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2388 ENDPROC 2640 PRINT''"rescue Hideous’ Hilda 

2390 : before thne"''"dragon's flames reach 

2498 DEF PROChole her." 

2419 PRINTTAB (holepos$,keyheight%+3) da 2658 PRINT'''TAB(5)"The controls are a 
ngerfloor$ S follows :":COLOUR]:PRINTTAB(14)"Z ~ 
2428 holepos%=holepos%+tholedir$% left"'TAB(14)"X - = right"'TAB(14) 
2438 IF holepos%>15 holepos%=15:holedi "J =  climb"'TAB(1@)"SHIFT - jum 
r¢=- p" 

2446 IF holepos%<4 holepos%=4:holedir$ 2669 COLOUR3: PRINTTAB(9,3@)"PRESS SPAC 
= E TO CONTINUE"; 


2459 PRINTTAB (holepos’,keyheight$+3) ga 2676 *FX15,1 
2686 ahS=GET 


2466 ENDPROC 2698 IF ah%<>32 GOTO 268d 
2478 : 2788 ENDPROC 
2486 DEF PROCdeath 27198 
2496 IF totaltime$=37 PRINTTAB(19,6)de 27206 DEF PROCskill 
ad$:GOTO 2556 273G VDU23,1,0;9;9;0; 
2508 REPEAT 2748 COLOUR2: PRINTTAB(11,14) "SKILL LEV 
2518 PRINTTAB (xpos%, ypos%) CHR$32 EL (1-9):" 
2528 ypos%3=ypos%+1 2758 *FX15,1 
2538 PRINTTAB(xpos$,ypos%)still$ 2768 pause%=5+ (GET-48) 
2548 UNTIL POINT (xpos%*64+32, (32-(ypos 2770 IF pause%<6 OR pause%$>14 GOTO 27608 
st+2) ) *32-4)>@ OR ypos$=27 2788 COLOUR]: PRINTTAB (29,14) ;pause$-5 
2558 PRINTTAB(xpos%, ypos%) dead$ 2798 TIME=@:REPEAT UNTIL TIME>7@ 
2568 ENDPROC 2888 ENDPROC 
2570 3 2818 DEFPROCscodisp 
2588 DEF PROCinstructions 28286 PRINTTAB(11,3)"YOUR SCORE WAS ";S 
2598 CLS TRS (score$) 
2680 VDU23,1,8;0;0;0; sCOLOURI 2830 PRINT''': 
2618 PRINT'TAB(1@) "GEORGE AND THE DRAG 2848 COLOUR1: PRINTTAB(11) "ANOTHER GAME 
ON" 77s 
2628 COLOUR3: PRINTTAB(14) "by O.R. Thoma 2856 *FX15,1 
lati 2868 QS=GETS: PRINTQS 
2638 COLOUR2: PRINT" Help George to do 2878 ENDPROC 
dge arrows and leap"''"over holes as 2886 : 


he rushes to grasp the"''"keys allow 2896 ON ERROR OFF:MODE 6 
ing him further up the"''"battlem 2908 IF ERR=17 END 
ents. But hurry - you must"; 291@ REPORT: PRINT" at line ";ERL: END & 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


BETTER INPUT 

If you are using INPUT in one of your programs, and the user is likely to input 
some text with a comma in (","), then by using INPUT LINE, you can ensure that the 
whole string is input (including commas, quotes and leading spaces). If you don't 
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NEW _WAY TO CRASH AN ELECTRON? - M.P. Briggs 
Try DIM A%(1,1,1,1,1,1,1,1,1,1,1,1,1,1) (there's 14 of them) to crash your 
Electron. cd 
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STRANGE VARIABLES - Tony Walsh 

If you have BEEBUGSOFT's new Toolkit ROM for the Electron and you wish to make a 
program unalterable, then try changing variables to built in words, such as PRINT 
(with the search and replace option), but omit the £ sign to indicate that it is a 
Basic keyword. Toolkit then replaces your variable for one spelt like the Basic 
keyword, but not tokenised. Most attempts to change the program will result in the 
variable being tokenised, and thus Basic producing an error when the program is run. 
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BACK ISSUES AND SUBSCRIPTIONS 


BACK ISSUES (Members only) SUBSCRIPTIONS 


All back issues will be kept in print Send all applications for membership, 
(from November 1983). Send 9@8p per and subscription queries to_ the 


issue PLUS an AS SAE to the subscriptions address. 

subscriptions address. Back copies of 

BEEBUG are available to ELBUG members MEMBERSHIP COSTS: 

at this same price. This offer is for U.K. 

members only, so it is ESSENTIAL to £5.99 for 6 months (5 issues) 

quote your membership number with your £9.98 for 1 year (198 issues) 

order. Please note that the advertising Eire and Europe 

supplements are not supplied with back Membership £16 for one year. 

issues. Middle East £19 
Americas and Africa £21 

Subscription and Software Address Flsewhere £23 


Payments in Sterling preferred. 


ELBUG SOFTWARE (Members only) 
PO BOX 109 — | 
High Wycombe This is available from the software 
Bucks address. 


MAGAZINE CONTRIBUTIONS 
AND TECHNICAL QUERIES 


Please send all contributions and 

technical queries to the editorial Editorial Address 
address opposite. All contributions 

published in the magazine will be paid 

for at the rate of £25 per page. ELBUG 


PO Box 5¢ 


We will also pay £10 for the best Hint St Albans 
or Tip that we publish, and £5 to the Herts 
next best. Please send all editorial 

material to the editorial address 

opposite. If you require a reply it is 

essential to quote your membership 

number and enclose an SAE. 


ELBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Editor: Mike Williams. 

Assistant Editor: Geoff Bains. Production Editor: Phyllida Vanstone. 

Technical Assistants: David Fell and Alan Webster. 

Managing Editor: Lee Calcraft. 

Thanks are due to, Sheridan Williams, and Adrian Calcraft for assistance with this 
issue. 


All rights reserved. No part of this publication may be reproduced without prior 
written permission of the Publisher. The Publisher cannot accept any responsibility, 
whatsoever, for errors in articles, programs, or advertisements published. The 
opinions expressed on the pages of this journal are those of the authors and do not 
necessarily represent those of the Publisher, BEEBUG Publications 
Limited. BEEBUG Publications LTD (c) 1984. 
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New Elbug Binders 


We have produced an attractive 
hard-backed binder for the 
ELBUG magazine. These 
binders are green in colour 
with “ELBUG” in gold lettering 
on the spine and allow for the 
whole of one volume of the 
magazine to be stored as a 
single reference book. 


Kach binder will accommodate 
10 ELBUG magazines, and is 
supplied with 18 wires to 
enable the index and the latest 
copy of the supplement to be 
included within the binder if 
required. Individual issues may 
be easily added and removed, 
allowing for the latest volume 
to be filed as it arrives. 


The price of the new ELBUG binder is £3.90 including VAT, 
please add 50p post and packing for delivery within the U.K. 
Overseas members please send the same amount, this will 
cover the extra postage but not VAT. 

Plese send to: 

BEEBUGSOFT, PO BOX 109, High Wycombe, Bucks, HP10 8HQ. 
et Se oe a 


THE BEST OF ELBUG ON CASSETTE 


Many of the best programs published in ELBUG have been collected together and 
published by Penguin Books under the name “Games and other programs for the Acorn 
Electron" at £3.95. This book is part of the Penguin Acorn Computer Library and at 
present there is just one other title available though others are planned. 


There are 28 programs in all in four different categories: 


Action Games - aan: 
Munch-=Man Mars Lander Invasion Games 
and other arm 
Robot Attack Hedgehog Ppa boa 
Thought games 
Higher/Lower Five-Dice . Life 
Anagrams Return of the Diamond 


Visual Displays 


Union Jack Square Dance Ellipto 
Screenplay 3-D Rotation 
Utilities 


Sound Wizard Bad Program Lister 
3-D Lettering Bad Program Rescue 
Double Height Text 


All 28 programs are now available on cassette from our software address (in High 
Wycombe) price £7 to members and £9 to non-members, plus 5@p post & packing in 
either case. 


ELBUG MAGAZINE CASSETTE 


To save wear and tear on fingers and brain, we offer, each month, a cassette of the programs featured in 
the latest edition of ELBUG. The first program on each tape is a menu program, detailing the tape’s 
contents, and allowing the selection of individual programs. The tapes are produced to a high technical 
standard by the process used for the BEEBUGSOFT range of titles. 


Magazine cassettes have been produced for each issue of ELBUG from Volume 1 Number 1 onwards and 
are all available from stock, priced 23.00 each inclusive of VAT. See below for ordering information. 


This months cassette includes: 


Volume 2 Number 1 
A Christmas Carol, an exciting Power Boats race game, three short games — Treasure Hunt, Asterisk 


Tracker and Truffle Hunt, a useful routine for producing proportionally spaced text in mode 5, a 
Solitaire game but with a computing theme, a fascinating Zoom perry program together with the 
data for our Zoom Competition, and a superb original game ed George and the Dragon. 


MAGAZINE CASSETTE SUBSCRIPTION 


We are also able to offer ELBUG members subscription to the magazine cassette, this gives the added 
advantage of receiving the cassette at around the same time as the magazine each month Subscriptions 
may either be for a period of 1 year or6 months. (NOTE Magazine cassettes are produced 10 times each 
year). 


If required, subscriptions may be backdated as far as Volume 1 Number 1, so when applying please write 
to the address below quoting your membership number and the issue from which you would like your 
subscription to start. 


MAGAZINE CASSETTE ORDERING INFORMATION 


Individual ELBUG Magazine Cassettes £3.00. 
P& P: Please add 50p for the first and30p foreach subsequent cassette. 
Overseas orders: Please send the same amount, this will include the extra post but not VAT. 


Magazine Cassette Subscription 
1 YEAR (10 issues) £33.00 Inclusive..... O’SEAS £39.00 No VAT payable 
6 MONTHS (5 issues) £17.00 Inclusive..... O’SEAS £20.00 No VAT payable 


Please be sure to specify that you require subscription to the ELBUG magazine cassette (as opposed to 


the BEEBUG cassette), and enclose your membership number with a cheque made payable to 
BEEBUGSOFT. 


Please send to.. 


NLBUG Magazine Cassette, BEEBUGSOFT, PO Box 109, High Wycombe, HP10 8HQ 


Printed in England by Stapies Printers St Albans Limited at The Priory Press. 


